Faz o q o OP pediu, sem a necessidade do uso explicito das funções apply() On Sunday, 24 June 2012, andrebvs wrote:
Olá Benilton, peguei o bonde andando desse tópico e parece ser interessante, então, o que faz exatamente essas simplificações? em que isso pode ser útil?
desde já agradeço!
*Att. André*
------------------------------ Em 24/06/2012 07:29, *Bernardo Rangel Tura < tura@centroin.com.br<javascript:_e({}, 'cvml', 'tura@centroin.com.br');>> * escreveu: On 06/22/2012 11:16 AM, Benilton Carvalho wrote:
E partindo da resposta do Tura, mais simplificacoes podem vir. Exemplos abaixo, nao testados, a partir da matriz B1 proposta pelo Tura:
set.seed(1) B1<- matrix(rpois(1209,10),nrow=39,ncol=31) library(matrixStats) N1<- scale(B1, colQuantiles(B1, 0), rowDiffs(colQuantiles(B1, c(0, 1)))) N2<- scale(B1, colMeans(B1), colQuantiles(B1, 1)-colMeans(B1)) N3<- scale(B1, colMeans(B1), rowDiffs(colQuantiles(B1, c(0, 1)))) N4<- scale(B1, colMeans(B1), colVars(B1))
b
Benilton,
Parabéns fico ainda mias simples e mais elegante...
[]s Tura _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br <javascript:_e({}, 'cvml', 'R-br@listas.c3sl.ufpr.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.