Uma for mais simples, sem chamar o reshape e na linha do que você estava imaginando, seria
require(plyr)
## Ordenar para assegurar ordem cronológica.
da <- arrange(GPD, ANIMAL, DATA)
str(da)
f <- function(x){
mean(diff(na.omit(x)))
}
ddply(da, .(ANIMAL), summarise, mGPD=f(Pesos))
À disposição.
Walmes.
_______________________________________________ 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.
-- Fernando Antônio de Souza Zootecnista,Dsc. Nutrição e alimentação animal (UFMG) Lattes: http://lattes.cnpq.br/6519538815038307 e-mail:nandodesouza@gmail.com (82)9618-6457 (tim) (82)8113-8781 (vivo) (82)3313-8781 (net) (31)9784-5273 (vivo-MG)