# NOT RUN {
obj.dr4pl <- dr4pl(Response ~ Dose, data = sample_data_1) # Fit a 4PL model to data
## Use the data 'sample_data_1' to obtain confidence intervals.
confint(obj.dr4pl) # 95% confidence intervals
confint(obj.dr4pl, level = 0.99) # 99% confidence intervals
theta <- FindInitialParms(x = sample_data_1$Dose, y = sample_data_1$Response)
# Use the same data 'sample_data_1' but different parameter estimates to obtain
# confidence intervals.
confint(obj.dr4pl, parm = theta)
# }
Run the code above in your browser using DataLab