[R-br] Junção de dados no mclapply

[Benilton Carvalho]

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 em 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 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/20130115/cb0f1d7c/attachment.html>