[R-br] Reduzir objeto auxiliares...

[Rodrigo Coster]

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 em 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 em 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130429/83a8635c/attachment.html>