Obrigado Luciano, Mas não era bem isso, pois o objeto final ficou no formato:
dados2 sp1 sp2 sp3 sp4 sp5 sp6 sp7 sp8 dossel 82.77001 82.77001 82.77001 82.77001 82.77001 82.77001 82.77001 82.77001 elevacao 727.85335 727.85335 727.85335 727.85335 727.85335 727.85335 727.85335 727.85335 argila 47.28028 47.28028 47.28028 47.28028 47.28028 47.28028 47.28028 47.28028 500.00000 500.00000 500.00000 500.00000 500.00000 500.00000 500.00000 500.00000
E na verdade eu queria manter a estrutura de cada variável em uma coluna, sendo:
head(dados) especie dossel elevacao argila presenca 1 sp1 70.63681 671.8686 58.47338 500 2 sp2 70.63681 671.8686 58.47338 500 3 sp3 70.63681 671.8686 58.47338 500 4 sp4 70.63681 671.8686 58.47338 500 5 sp5 70.63681 671.8686 58.47338 500 6 sp6 70.63681 671.8686 58.47338 500
Obrigado, Em 12/03/2013 09:10, Luciano F. Sgarbi escreveu:
é isso? sapply(split(dados,dados$especie),function(x) a<-c(apply(x[,c(2:4)],2,mean),sum(x[,5])) )
att, Luciano
Em 12 de março de 2013 09:40, ASANTOS <alexandresantosbr@yahoo.com.br <mailto:alexandresantosbr@yahoo.com.br>> escreveu:
Bom dia pessoal,
Estou tentando obter um novo objeto com alguns dados que sera ó resultado de várias operações, sendo:
# dados<-expand.grid(especie=c("sp1","sp2","sp3","sp4","sp5", "sp6","sp7","sp8"),##8 espécies de inseto dossel=rnorm(5,75,15), ## Cobertura de dossel elevacao=rnorm(5,750,50),##Elevação do terreno argila=rnorm(5,45,15),## Teor de argila presenca=rbinom(5,1,0.6)) ## Presença ou ausência do inseto #
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,
Obrigado
-- ====================================================================== Alexandre dos Santos Proteção Florestal Coordenador do curso Técnico em Florestas Vice Coordenador do curso de Engenharia Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 8132-8112 <tel:%28%2B55%29%2065%208132-8112> (TIM) (+55) 65 9686-6970 <tel:%28%2B55%29%2065%209686-6970> (VIVO) e-mails:alexandresantosbr@yahoo.com.br <mailto:e-mails%3Aalexandresantosbr@yahoo.com.br> alexandre.santos@cas.ifmt.edu.br <mailto:alexandre.santos@cas.ifmt.edu.br> ======================================================================
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br <mailto: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.
-- *Luciano F. Sgarbi*
Mestrando em Ecologia e Evolução Laboratório de Ecologia de Insetos (sl. 222) Departamento de Ecologia Instituto de Ciências Biológicas - ICB 1 Universidade Federal de Goiás, campus II Goiânia-GO 74001-970 Brazil
_______________________________________________ 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.
-- ====================================================================== Alexandre dos Santos Proteção Florestal Coordenador do curso Técnico em Florestas Vice Coordenador do curso de Engenharia Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br ======================================================================