[R-br] Ajuda para evitar um loop com elegância (agora correto)

[Jose Claudio Faria]

Pessoal,

Gostaria de evitar um loop no procedimento abaixo da forma mais
elegante possível:

# R help
m   <- matrix(runif(24), ncol=3)
res <- matrix(0, nrow(m), ncol(m))
mg  <- mean(m) # média geral
mc  <- colMeans(m) # média das colunas
mr  <- rowMeans (m) # 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
///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\