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

[Jose Claudio Faria]

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
///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\