library(seedreg)
data("aristolochia")
attach(aristolochia)
a=LM_model(trat,germ)
b=LL_model(trat,germ,npar = "LL.3")
c=BC_model(trat,germ, npar = "BC.4")
d=CD_model(trat,germ, npar = "CRS.4")
multicurve(list(a,b,c,d))
Run the code above in your browser using DataLab