<div dir="ltr">Da para criar uma lista arm com 12 listas dentro dela. Algo tipo:<div><br></div><div><div> arm <- lapply(1:12, function(x, nlag) vector(nlag, mode='list'), nlag)</div><div><br></div><div>for (i in 1:nlag)</div>
<div>{</div><div>  arm[[1]][[i]]  <- unlist(OK1[d1[i]:d2[i]])</div><div>  arm[[2]][[i]]  <- unlist(OK1[d3[i]:d4[i]])</div><div>  arm[[3]][[i]]  <- unlist(OK1[d5[i]:d6[i]])</div><div>  arm[[4]][[i]]  <- unlist(OK1[d7[i]:d8[i]])</div>
<div>  arm[[5]][[i]]  <- unlist(OK1[d9[i]:d10[i]])</div><div>  arm[[6]][[i]]  <- unlist(OK1[d11[i]:d12[i]])</div><div>  arm[[7]][[i]]  <- unlist(OK1[d13[i]:d14[i]])</div><div>  arm[[8]][[i]]  <- unlist(OK1[d15[i]:d16[i]])</div>
<div>  arm[[9]][[i]]  <- unlist(OK1[d17[i]:d18[i]])</div><div>  arm[[10]][[i]] <- unlist(OK1[d19[i]:d20[i]])</div><div>  arm[[11]][[i]] <- unlist(OK1[d21[i]:d22[i]])</div><div>  arm[[12]][[i]] <- unlist(OK1[d23[i]:d24[i]])</div>
<div>}</div></div><div><br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Sun, Apr 28, 2013 at 10:14 PM,  <span dir="ltr"><<a href="mailto:andrebvs@bol.com.br" target="_blank">andrebvs@bol.com.br</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div>Olá colegas, <br><br>Existe alguma maneira de reduzir a quantidade de objetos auxiliares no exemplo abaixo (<strong>arm1, arm2, ..., arm12</strong>), para a entrada no laço <em>for</em>?</div>

<div> </div>
<div> arm1  <- list()<br> arm2  <- list()<br> arm3  <- list()<br> arm4  <- list()<br> arm5  <- list()<br> arm6  <- list()<br> arm7  <- list()<br> arm8  <- list()<br> arm9  <- list()<br> arm10 <- list()<br>
 arm11 <- list()<br> arm12 <- list()<br><br>for (i in 1:nlag)<br>{<br>  arm1[[i]]  <- unlist(OK1[d1[i]:d2[i]])<br>  arm2[[i]]  <- unlist(OK1[d3[i]:d4[i]])<br>  arm3[[i]]  <- unlist(OK1[d5[i]:d6[i]])<br>  arm4[[i]]  <- unlist(OK1[d7[i]:d8[i]])<br>
  arm5[[i]]  <- unlist(OK1[d9[i]:d10[i]])<br>  arm6[[i]]  <- unlist(OK1[d11[i]:d12[i]])<br>  arm7[[i]]  <- unlist(OK1[d13[i]:d14[i]])<br>  arm8[[i]]  <- unlist(OK1[d15[i]:d16[i]])<br>  arm9[[i]]  <- unlist(OK1[d17[i]:d18[i]])<br>
  arm10[[i]] <- unlist(OK1[d19[i]:d20[i]])<br>  arm11[[i]] <- unlist(OK1[d21[i]:d22[i]])<br>  arm12[[i]] <- unlist(OK1[d23[i]:d24[i]])<br>}<br><br>desde já agradeço!</div>
<div><br><em>Att.</em><br><em>André</em><br><br></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>