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

[Benilton Carvalho]

Número da coluna de m1. Fica como tarefa a interpretação do remanescente. B
On 11 Jan 2013 14:39, "Junior Beleti" <beleti.junior em gmail.com> wrote:

> Desculpa Benilton, mas seria esse o código completo:
>
>
> grid <- expand.grid(i=1:ncol(m2), j=1:nrow(m1))
>
>
> ## versao 1
> f <- function(idx)
>    m1[grid[idx, 2],] %*% m2[, grid[idx, 1]]
> matrix(unlist(mclapply(1:nrow(grid), f)), nc=ncol(m2), byrow=T)
>
> ## 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
> }
>
> matrix(unlist(mclapply(1:nrow(grid), g)), 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/20130112/8c7dc61a/attachment.html>