Também, depende do formato de saída desejado... 

st <- sapply(OCTOPUS_S_2003[, -(1:3)],
                tapply(OCTOPUS_S_2003[,2:3], mean, na.rm=TRUE))
ag <- aggregate(OCTOPUS_S_2003[, -(1:3)], 
                OCTOPUS_S_2003[,2:3], mean, na.rm=TRUE)
str(st)
str(ag)

On Thu, 2013-03-07 at 09:41 -0300, FHRB Toledo wrote:
> aggregate(), não seria o caso?
> 
> On 7 March 2013 09:36, Elias Teixeira Krainski
> <[email protected]> wrote:
>         sapply(OCTOPUS_S_2003[, -(1:3)],
>                tapply(OCTOPUS_S_2003[,2:3], mean, na.rm=TRUE))
>         
>         
>         _______________________________________________
>         R-br mailing list
>         [email protected]
>         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.
> 
> _______________________________________________
> R-br mailing list
> [email protected]
> 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.


_______________________________________________
R-br mailing list
[email protected]
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.

Responder a