[R-br] Ajuda para evitar loop com elegância

[Jose Claudio Faria]

Favor desconsiderar o exemplo (está errado), vou postar novamente!
-- 
///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\
Jose Claudio Faria
Estatistica
UESC/DCET/Brasil
joseclaudio.faria at gmail.com
///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\


Em 14 de abril de 2012 07:51, Jose Claudio Faria
<joseclaudio.faria em gmail.com> escreveu:
> Pessoal,
>
> Gostaria de evitar um loop no procedimento abaixo da forma mais
> elegante possível:
>
> m   <- matrix(1:24, ncol=3)
> res <- matrix(0, nrow(m), ncol(m))
> mg  <- mean(m)  # média geral
> mc  <- colMeans(matrixdata)  # média das colunas
> mr  <- rowMeans (matrixdata)  # médias das variáveis
> for (i in  1:nrow(m))
>  for (j in 1:ncol(m))
>    res[i,j] <- m[i,j] + mg - mc[j] - mr[i]
> res
>
> Toda ajuda é bem vinda...
> --
> ///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\
> Jose Claudio Faria
> Estatistica
> UESC/DCET/Brasil
> joseclaudio.faria at gmail.com
> ///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\