Re: [R-br] Junção de dados no mclapply
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.
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@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@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.
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.
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.
participantes (2)
-
Benilton Carvalho -
Junior Beleti