## 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)) 
## Applying the optimal transform-both-sides Box-Cox transformation
S.alba.m2 <- boxcox(S.alba.m1, method = "anova") 
## Plotting fitted regression curves together with the data
plot(S.alba.m2)Run the code above in your browser using DataLab