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.
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.
