<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Uma for mais simples, sem chamar o reshape e na linha do que você estava imaginando, seria<br><span style="font-family:monospace,monospace"><br>require(plyr)<br><br>## Ordenar para assegurar ordem cronológica.<br>da <- arrange(GPD, ANIMAL, DATA)<br>str(da)<br><br>f <- function(x){<br>    mean(diff(na.omit(x)))<br>}<br><br>ddply(da, .(ANIMAL), summarise, mGPD=f(Pesos))<br></span><br>À disposição.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Walmes.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><br></div>​</div>