## Fitting a log-logistic model with
## common lower and upper limits
model1<-multdrc(DryMatter~Dose, Herbicide, data=christensenetal2003,
collapse=data.frame(Herbicide,1,1,Herbicide), boxcox=TRUE)
## Plotting fitted curve and data
plot(model1)
rm(model1)
Run the code above in your browser using DataLab