Da para criar uma lista arm com 12 listas dentro dela. Algo tipo:

arm <- lapply(1:12, function(x, nlag) vector(nlag, mode='list'), nlag)

for (i in 1:nlag)

{

arm[[1]][[i]] <- unlist(OK1[d1[i]:d2[i]])

arm[[2]][[i]] <- unlist(OK1[d3[i]:d4[i]])

arm[[3]][[i]] <- unlist(OK1[d5[i]:d6[i]])

arm[[4]][[i]] <- unlist(OK1[d7[i]:d8[i]])

arm[[5]][[i]] <- unlist(OK1[d9[i]:d10[i]])

arm[[6]][[i]] <- unlist(OK1[d11[i]:d12[i]])

arm[[7]][[i]] <- unlist(OK1[d13[i]:d14[i]])

arm[[8]][[i]] <- unlist(OK1[d15[i]:d16[i]])

arm[[9]][[i]] <- unlist(OK1[d17[i]:d18[i]])

arm[[10]][[i]] <- unlist(OK1[d19[i]:d20[i]])

arm[[11]][[i]] <- unlist(OK1[d21[i]:d22[i]])

arm[[12]][[i]] <- unlist(OK1[d23[i]:d24[i]])

}

On Sun, Apr 28, 2013 at 10:14 PM, <andrebvs@bol.com.br> wrote:

Olá colegas,

Existe alguma maneira de reduzir a quantidade de objetos auxiliares no exemplo abaixo (arm1, arm2, ..., arm12), para a entrada no laço for?

arm1 <- list()
arm2 <- list()
arm3 <- list()
arm4 <- list()
arm5 <- list()
arm6 <- list()
arm7 <- list()
arm8 <- list()
arm9 <- list()
arm10 <- list()
arm11 <- list()
arm12 <- list()

for (i in 1:nlag)
{
arm1[[i]] <- unlist(OK1[d1[i]:d2[i]])
arm2[[i]] <- unlist(OK1[d3[i]:d4[i]])
arm3[[i]] <- unlist(OK1[d5[i]:d6[i]])
arm4[[i]] <- unlist(OK1[d7[i]:d8[i]])
arm5[[i]] <- unlist(OK1[d9[i]:d10[i]])
arm6[[i]] <- unlist(OK1[d11[i]:d12[i]])
arm7[[i]] <- unlist(OK1[d13[i]:d14[i]])
arm8[[i]] <- unlist(OK1[d15[i]:d16[i]])
arm9[[i]] <- unlist(OK1[d17[i]:d18[i]])
arm10[[i]] <- unlist(OK1[d19[i]:d20[i]])
arm11[[i]] <- unlist(OK1[d21[i]:d22[i]])
arm12[[i]] <- unlist(OK1[d23[i]:d24[i]])
}

desde já agradeço!

Att.
André

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.