<p dir="ltr">Para o for é o codigo q vc escreveu tempos atrás. Essa linha a q vc se refere não seria aplicada em sequencial por for. </p>
<div class="gmail_quote">On 14 Jan 2013 21:24, "Junior Beleti" <<a href="mailto:beleti.junior@gmail.com">beleti.junior@gmail.com</a>> wrote:<br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Entendido Benilton. Muito obrigado.<div><br></div><div>Apenas mais uma dúvida:<br><div>
</div></div><div><br></div><div>Se fosse pra eu reescrever para que fosse executado de forma sequencial, por meio de "for", a seguinte instrução:</div><div><br></div><div><div>m3<-matrix(unlist(mclapply(1:nrow(grid), g)), nc=ncol(m2), byrow=TRUE) </div>

</div><div><br></div><div>como ficaria? </div><div>Pois via lapply, apenas retirando-se o mc do mclapply já funcionaria.</div><div><br></div><div><br></div><div>Segue código completo:</div><div><br></div><div><div>grid <- expand.grid(1:ncol(m2), 1:nrow(m1)) </div>

<div><br></div><div>## versao 2 </div><div>g <- function(idx){ </div><div>aux = 0 </div><div>X = m1[grid[idx, 2], ] </div><div>Y = m2[, grid[idx, 1]] </div><div>for (i in 1:length(X)) </div><div>aux = aux + X[i]*Y[i] </div>

<div>aux </div><div>} </div><div><br></div><div>m3<-matrix(unlist(mclapply(1:nrow(grid), g, mc.cores=2)), nc=ncol(m2), byrow=TRUE) </div></div><div><br></div><div>Obrigado, Junior.</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>