## Modified logistic model with the constraint f>0
model1 <- multdrc(hormesis[,c(2,1)], fct=mlogistic(fixed=c(NA, NA, NA, NA, NA),
lowerc=c(-Inf, -Inf, -Inf, -Inf, 0), alpha=1), control=mdControl(constr=TRUE))
summary(model1)
ED(model1, c(10, 50, 90))
rm(model1)
Run the code above in your browser using DataLab