attach(practico7)

help(glm)

modelo=glm(crecimiento~fitofago+trat,family=gaussian(link='identity'))

summary(modelo)

D1=(modelo$null.deviance-modelo$deviance)/modelo$null.deviance

D1

modelo2=glm(crecimiento~fitofago+trat,family=gaussian(link='log'))

summary(modelo2)

D2=(modelo2$null.deviance-modelo2$deviance)/modelo2$null.deviance

D2

modelo$aic

modelo2$aic