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.
str(GPD)
xtabs(~TRAT+ANIMAL, data=GPD)
xtabs(~DATA+ANIMAL, data=GPD)
require(reshape)
require(plyr)
db <- cast(data=GPD, ANIMAL~DATA, value="Pesos")
db$mGPD <- apply(db[,-1], MARGIN=1,
function(x){
mean(diff(na.omit(x)))
})
À disposição.
Walmes.
_______________________________________________
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.
