try this:
lapply(1:4, function(j) {n=ncol(y0[[j]]); do.call('cbind',lapply(1:n, function(i) y0[[j]][,i]))}) On 4/20/07, Weiwei Shi <[EMAIL PROTECTED]> wrote: > Hi, anyone interested in this: > > I tried to simply this loop with lapply or something but haven't figured it > out: > > mapt = c("203929_s_at", "203930_s_at", "203928_x_at", "206401_s_at") > mapt.combn <- lapply(1:4, function(i) combn(mapt, i)) > out = list() > k = 1 > for (i in 1:length(mapt.combn)){ > for (j in 1:ncol(mapt.combn[[i]])){ > out[[k]] = mapt.combn[[i]][,j] > k = k + 1 > } > } > out > > # the following two lines create a list of list, which is not my intended: > > y0 = mapt.combn > lapply(1:4, function(j) {n=ncol(y0[[j]]); lapply(1:n, function(i) > y0[[j]][,i])}) > > Thanks, > > -- > Weiwei Shi, Ph.D > Research Scientist > GeneGO, Inc. > > "Did you always know?" > "No, I did not. But I believed..." > ---Matrix III > > ______________________________________________ > R-help@stat.math.ethz.ch mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. > -- Jim Holtman Cincinnati, OH +1 513 646 9390 What is the problem you are trying to solve? ______________________________________________ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.