24 Jun
2012
24 Jun
'12
10:29
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