mais simples que isso, dado seu array 3d 'M', M <- array(c(seq(1:25),rep(NA,2)),dim=c(3,3,3)) rowMeans(M, dims=2, na.rm=T)
(bem mais simples qdo ha' um exemplo q pode ser reproduzido) Em 12 de junho de 2013 14:51, <[email protected]> escreveu: > Olá Tito, acredito que seja essa solução a qual procuras: > > # Matriz Tridimensional: > > M <- array(c(seq(1:25),rep(NA,2)),dim=c(3,3,3)) > > A <- NULL > nM <- 3 # nº de matrizes a serem usadas > nE <- 9 # nº de elementos em cada matriz > > S1 <- rep(1:nE,each=nM) > S2 <- rep(1:nM,nE) > > for (i in 1:(nM*nE)) > { > A[i] <- mean(M[,,S2[i]][S1[i]]) > } > > Result <- matrix(colMeans(matrix(A,,9),na.rm = TRUE),3,3) > Result > > Espero ter ajudado colega. > > Att. > André BVS > > ________________________________ > Em 12/06/2013 14:31, Tito Conte < [email protected] > escreveu: > ok > > Tito Conte > > > > 2013/6/12 Benilton Carvalho <[email protected]> >> >> o comando eh array(), use o argumento dim= apropriadamente... qdo >> houver um exemplo reproduzivel, nao me incomodarei em dar as duas >> linhas de comando q vc procura. >> >> Em 12 de junho de 2013 11:36, Tito Conte <[email protected]> escreveu: >> > Benilton, como criar um array 3d (nunca fiz isso)? >> > >> > Tito Conte >> > >> > >> > >> > 2013/6/12 Benilton Carvalho <[email protected]> >> >> >> >> Crie um array 3d e use rowMeans com o argumento na.rm=TRUE >> >> >> >> On 12 Jun 2013 11:14, "Tito Conte" <[email protected]> wrote: >> >>> >> >>> Bom dia, >> >>> >> >>> Preciso calcular a média de pontos entre matrizes que possuem NA i >> >>> gnorando-os >> >>> >> >>> exemplo: média entre estas matrizes >> >>> >> >>> [,1] [,2] [,3] >> >>> [1,] 3 6 9 >> >>> [2,] 4 7 10 >> >& gt;> [3,] 5 8 11 >> >> >>> >> >>> >> >>> [,1] [,2] [,3] >> >>> [1,] 1.5 3.0 4.5 >> >>> [2,] 2.0 3.5 5.0 >> >>> [3,] 2.5 4.0 5.5 >> >>> >> >>> >> >>> [,1] [,2] [,3] >> >>> [1,] 2 2 NA >> >>> [2,] 2 2 2 >> >>> [3,] 2 2 NA >> >>> >> >>> e obter um resultado que fosse uma matriz do mesmo tamnho com a média >> >>> de >> >>> cada ponto ignoradno NAs >> >>> >> >>> alguém pode me ajudar com essa? >> >>> >> >>> Tito Conte >> >>> >> >>> >> >>> _______________________________________________ >> >>> R-br mailing list >> >>> [email protected] fpr.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. >> >> >> >> >> >> _______________________________________________ >> >> R-br mailing list >> >> [email protected] >> >> 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. >> &g t; >> >> > >> > >> > _______________________________________________ >> > R-br mailing list >> > [email protected] >> > 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. >> _______________________________________________ >> R-br mailing list >> [email protected] >> 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. > > > > _______________________________________________ > R-br mailing list > [email protected] > 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. _______________________________________________ R-br mailing list [email protected] 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.
