## Fitting a log-logistic model with
## common lower and upper limits
model1 <- drm(DryMatter~Dose, Herbicide, data=S.alba, fct = LL.4(),
pmodels=data.frame(Herbicide,1,1,Herbicide), adjust="bc1")
## Plotting fitted curve and data
plot(model1)
Run the code above in your browser using DataLab