Permíteme repasar tu mensaje, soy algo lento y eso me ayuda.

# Tu tienes una matrix  diagonal de 300 x 300 con obviamente 300 unos.
Seguramente solo a titulo ilustrativo.
data <- diag(1, 300, 300)
data[1:10, 1:10]
class(data)
str(data)

# Con esa matriz generas 1000 listas de una lista de 300 números que tienen
en algún lugar unos, uno o no los tienen, y que en total son 1048 (para el
seed 123)
set.seed(123)
a=replicate(1000,sample(data,size=300),simplify=F)
class(a)
class(a[1])
class(a[1][[1]])
sum(a[1][[1]])
sum(a[7][[1]])
sum(a[33][[1]])
sum(a[375][[1]])
sum(a[999][[1]])
abis=replicate(1000,sample(data,size=300),simplify=TRUE)
colSums(abis)
sum(colSums(abis))
str(a)

# No entiendo para que haces esta segunda parte.
df<- lapply(lapply(lapply(a,t),colSums),data.frame)
class(df)
class(df[1])
class(df[1][[1]])
sum(df[1][[1]])
sum(df[7][[1]])
sum(df[33][[1]])
sum(df[375][[1]])
sum(df[999][[1]])

# Hasta aquí llegué a la primer parte de tu planteo y me parece que no
entiendo lo que dices o no entiendo tu objetivo ya que no me parece que
estes obteniendo lo que declaras.

# Para la segunda parte, tomando prestada la función de Jorge Velez, me
parece que quieres hacer para la cantidad de unos por réplica i de 1 a 300,
lo siguiente:

jv <- f(i,300,1000)                                           # no creo que
por hacer un bucle 1:300 se pueda colgar, aunque no se si eso buscas.
colSums(jv)

Lamento pero puedo ayudarte con el motivo por el cual se te "cuelga" o
cierra R con tu función, no la conozco, pero apostaría a que no es un
problema de R.

Daniel Merino



El 14 de enero de 2013 17:33, Gabriel Trujillo Paucar <
gabriel_enter@hotmail.com> escribió:

> lapply(lapply(lapply(a,t),colSums),data.frame)
>




-- 
Daniel

	[[alternative HTML version deleted]]

