library(AgroReg)
data(granada)
attach(granada)
a=LM(time,WL)
b=LL(time,WL)
c=BC(time,WL)
d=weibull(time,WL)
comparative_model(models=list(a,b,c,d),names_model=c("LM","LL","BC","Weibull"))
models <- c("LM1", "LM4", "L3", "BC4","weibull3","mitscherlich", "linear.plateau", "VG")
r <- lapply(models, function(x) {
r <- with(granada, regression(time, WL, model = x))
})
comparative_model(r,plot = TRUE)
Run the code above in your browser using DataLab