Faz o q o OP pediu, sem a necessidade do uso explicito das funções apply()<span></span><br><br>On Sunday, 24 June 2012, andrebvs  wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
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?<br><br>desde já agradeço!<br><br><em>Att.<br>André</em><br> <br><br>

<hr style="border-top:1px solid #ccc">
Em 24/06/2012 07:29, <strong>Bernardo Rangel Tura < <a href="javascript:_e({}, 'cvml', 'tura@centroin.com.br');" target="_blank">tura@centroin.com.br</a> ></strong> escreveu:<br>On 06/22/2012 11:16 AM, Benilton Carvalho wrote:<br>
> E partindo da resposta do Tura, mais simplificacoes podem vir.<br>> Exemplos abaixo, nao testados, a partir da matriz B1 proposta pelo<br>> Tura:<br>><br>> set.seed(1)<br>> B1<- matrix(rpois(1209,10),nrow=39,ncol=31)<br>
> library(matrixStats)<br>> N1<- scale(B1, colQuantiles(B1, 0), rowDiffs(colQuantiles(B1, c(0, 1))))<br>> N2<- scale(B1, colMeans(B1),  colQuantiles(B1, 1)-colMeans(B1))<br>> N3<- scale(B1, colMeans(B1),  rowDiffs(colQuantiles(B1, c(0, 1))))<br>
> N4<- scale(B1, colMeans(B1), colVars(B1))<br>><br>> b<br>><br><br>Benilton,<br><br>Parabéns  fico ainda mias simples e mais elegante...<br><br>[]s<br>Tura<br>_______________________________________________<br>
R-br mailing list<br><a href="javascript:_e({}, 'cvml', 'R-br@listas.c3sl.ufpr.br');" target="_blank">R-br@listas.c3sl.ufpr.br</a><br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br><br>
</blockquote>