# NOT RUN {
rIM1xVibrio <- drfit(IM1xVibrio, logit = TRUE, chooseone = FALSE,
showED50 = TRUE, EDx = c(10, 20))
print(rIM1xVibrio, digits = 4)
rIM1xVibrio.drc <- drcfit(IM1xVibrio, logit = TRUE, chooseone = FALSE,
showED50 = TRUE, EDx = c(10, 20))
print(rIM1xVibrio.drc, digits = 4)
# }
Run the code above in your browser using DataLab