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. On 14 Jan 2013 21:24, "Junior Beleti" <beleti.junior@gmail.com> wrote:
Entendido Benilton. Muito obrigado.
Apenas mais uma dúvida:
Se fosse pra eu reescrever para que fosse executado de forma sequencial, por meio de "for", a seguinte instrução:
m3<-matrix(unlist(mclapply(1:nrow(grid), g)), nc=ncol(m2), byrow=TRUE)
como ficaria? Pois via lapply, apenas retirando-se o mc do mclapply já funcionaria.
Segue código completo:
grid <- expand.grid(1:ncol(m2), 1:nrow(m1))
## versao 2 g <- function(idx){ aux = 0 X = m1[grid[idx, 2], ] Y = m2[, grid[idx, 1]] for (i in 1:length(X)) aux = aux + X[i]*Y[i] aux }
m3<-matrix(unlist(mclapply(1:nrow(grid), g, mc.cores=2)), nc=ncol(m2), byrow=TRUE)
Obrigado, Junior.
_______________________________________________ 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.