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.