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>