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