Thanks a lot!! It sure helped.
and many thanks to all other repliers!


On Tue, Aug 24, 2010 at 3:40 PM, Dimitris Rizopoulos <
d.rizopoulos@erasmusmc.nl> wrote:

> try something like this:
>
> n <- 23
> x <- array(1:20, dim = c(n, 6))
> huge.list <- rep(list(x), 1000)
>
> out <- lapply(1:4, function (i) {
>    t(sapply(huge.list, "[", i = i, j = 1:6))
> })
>
> out[[1]]
> out[[4]]
>

	[[alternative HTML version deleted]]

