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_y(a,scale = seq(0,100,10),limits = c(0,100))
Run the code above in your browser using DataLab