## Fitting model with constraint on one parameter
met.m1<-drm(gain~dose, product, data=methionine,
fct=AR.3(), pmodels = list(~1, ~factor(product), ~factor(product)),
upperl=c(Inf, Inf,1700,Inf,Inf))
summary(met.m1)
Run the code above in your browser using DataLab