## Displaying the data set
ryegrass
## Fitting a four-parameter logistic regression
## with user-defined parameter names
model1 <- drm(rootl ~ conc, data = ryegrass,
fct = LL.4(names = c("Slope", "Lower Limit", "Upper Limit", "ED50")))
## Displaying a summary of the fit
summary(model1)
Run the code above in your browser using DataLab