## Fitting a 4-parameter log-logistic model
model.onecurve <- multdrc(Root~Dose, data=onecurve)
## Fitting a 3-parameter log-logistic model
## lower limit fixed at 0
model.onecurve.noC <- multdrc(Root~Dose, data=onecurve, fct=l3())
rm(model.onecurve, model.onecurve.noC)
Run the code above in your browser using DataLab