você pode usar t() com o resultado do comando que eu te mandei,

outra opção é:

do.call(rbind,lapply(split(dados,dados$especie),function(x) a<-c(apply(x[,c(2:4)],2,mean),sum(x[,5])) ))

pode ser isso?

att,

Luciano

Em 12 de março de 2013 13:06, ASANTOS <alexandresantosbr@yahoo.com.br> escreveu:

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> 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 (TIM)   (+55) 65 9686-6970 (VIVO)
e-mails:alexandresantosbr@yahoo.com.br
        alexandre.santos@cas.ifmt.edu.br
======================================================================

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

--

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

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

--

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.