library(AgroReg)
data("aristolochia")
attach(aristolochia)
a=LM(trat,resp)
b=LL(trat,resp,npar = "LL.3")
a=plot_arrange(list(a,b),gray = TRUE)
adjust_scale(a,scale.y = seq(0,100,10),limits.y = c(0,100))
Run the code above in your browser using DataLab