<div dir="ltr"><div style>é isso?</div>sapply(split(dados,dados$especie),function(x) a<-c(apply(x[,c(2:4)],2,mean),sum(x[,5])) )<br><div><br></div><div style>att,</div><div style>Luciano</div></div><div class="gmail_extra">
<br><br><div class="gmail_quote">Em 12 de março de 2013 09:40, ASANTOS <span dir="ltr"><<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Bom dia pessoal,<br>
<br>
Estou tentando obter um novo objeto com alguns dados que sera ó resultado de várias operações, sendo:<br>
<br>
#<br>
dados<-expand.grid(especie=c("<u></u>sp1","sp2","sp3","sp4","sp5",<br>
"sp6","sp7","sp8"),##8 espécies de inseto<br>
dossel=rnorm(5,75,15), ## Cobertura de dossel<br>
elevacao=rnorm(5,750,50),##<u></u>Elevação do terreno<br>
argila=rnorm(5,45,15),## Teor de argila<br>
presenca=rbinom(5,1,0.6)) ## Presença ou ausência do inseto<br>
#<br>
<br>
Gostaria de explicitar que a cada variação em dados$especie, fosse realizado a soma de dados$presenca e a média de dados$dossel, dados$elevacao e dados$argila, na criação do novo objeto, mas com o comando tapply(), não estou tendo sucesso em uma única linha de comando, alguém teria alguma sugestão para fazer esta operação de maneira direta,<br>
<br>
Obrigado<br>
<br>
-- <br>
==============================<u></u>==============================<u></u>==========<br>
Alexandre dos Santos<br>
Proteção Florestal<br>
Coordenador do curso Técnico em Florestas<br>
Vice Coordenador do curso de Engenharia Florestal<br>
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso<br>
Campus Cáceres<br>
Caixa Postal 244<br>
Avenida dos Ramires, s/n<br>
Bairro: Distrito Industrial<br>
Cáceres - MT CEP: 78.200-000<br>
Fone: <a href="tel:%28%2B55%29%2065%208132-8112" value="+556581328112" target="_blank">(+55) 65 8132-8112</a> (TIM) <a href="tel:%28%2B55%29%2065%209686-6970" value="+556596866970" target="_blank">(+55) 65 9686-6970</a> (VIVO)<br>
<a href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@<u></u>yahoo.com.br</a><br>
<a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.<u></u>br</a><br>
==============================<u></u>==============================<u></u>==========<br>
<br>
______________________________<u></u>_________________<br>
R-br mailing list<br>
<a href="mailto: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/<u></u>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-<u></u>guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div><br><br clear="all"><div><br></div>-- <br><blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote><div><b style="font-size:12.727272033691406px;color:rgb(34,34,34);font-family:arial,sans-serif;background-color:rgb(255,255,255)">Luciano F. Sgarbi</b><br>
<br style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)"><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)">Mestrando em Ecologia e Evolução</span><br style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)">
<span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)">Laboratório de Ecologia de Insetos (sl. 222)</span><br style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)">
<div style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)">Departamento de Ecologia<br>Instituto de Ciências Biológicas - ICB 1<br>Universidade Federal de Goiás, campus II<br>
Goiânia-GO<br>74001-970</div><div style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)">Brazil</div></div><div><br></div><div><br></div>
</div>