<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Isso pode ser feito de muitas formas, via muitos pacotes e funções. Dentre tantas, uma possibilidade seria essa. Certamente não é a melhor mas serve.<br><br><span style="font-family:monospace,monospace">str(GPD)<br><br>xtabs(~TRAT+ANIMAL, data=GPD)<br>xtabs(~DATA+ANIMAL, data=GPD)<br><br>require(reshape)<br>require(plyr)<br><br>db <- cast(data=GPD, ANIMAL~DATA, value="Pesos")<br><br>db$mGPD <- apply(db[,-1], MARGIN=1,<br>                 function(x){<br>                     mean(diff(na.omit(x)))<br>                 })<br><br></span>À disposição.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Walmes.<br></div>​</div>