# Fitting a model with names assigned to the parameters!
model1 <- multdrc(SLOPE~DOSE, CURVE, data=PestSci,
fct=l4(names = c("b", "lower", "upper", "ed50")))
## Calculating ratios of parameter estimates for the parameter named "ed50"
compParm(model1, "ed50")
## Calculating differences between parameter estimates for the parameter named "ed50"
compParm(model1, "ed50", "-")
rm(model1)
Run the code above in your browser using DataLab