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 > 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
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.