<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:8pt"><div><span>Valeu Ivan, é que não conheço programação e as vezes fico perdido.</span></div><div></div><div> </div><div>Edson Lira<br>Estatístico<br>Manaus-Amazonas<br></div> <div style="font-size: 8pt; font-family: arial, helvetica, sans-serif; "> <div style="font-size: 12pt; font-family: 'times new roman', 'new york', times, serif; "> <div dir="ltr"> <font size="2" face="Arial"> <hr size="1"> <b><span style="font-weight:bold;">De:</span></b> Ivan Bezerra Allaman <ivanalaman@yahoo.com.br><br> <b><span style="font-weight: bold;">Para:</span></b> r-br@listas.c3sl.ufpr.br <br> <b><span style="font-weight: bold;">Enviadas:</span></b> Quinta-feira, 21 de Fevereiro de 2013 19:01<br> <b><span style="font-weight: bold;">Assunto:</span></b> Re: [R-br] aggregate<br> </font> </div> <br><div id="yiv1006588334">Não complique o
fácil!!<br><br>da=data.frame(A=rep(LETTERS[1:3],3),<br><div> B=rep(letters[1:3],3),<br> y=rnorm(9),<br> x=rnorm(9),<br> z=rnorm(9))<br>
<br>aggregate(da[,-c(1:2)], <br> list(A=da[['A']],<br> B=da[['B']]),<br> function(x) c('Média'=mean(x), <br> 'Desvio'=sd(x),<br>
'CV'=sd(x)/mean(x)*100))<br><br>(S,f,P)<div class="yiv1006588334yj6qo yiv1006588334ajU"><div class="yiv1006588334ajR"><img class="yiv1006588334ajT" src="https://mail.google.com/mail/u/0/images/cleardot.gif">Allaman</div>
</div></div>
</div><br>_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">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> </div> </div> </div></body></html>