# NOT RUN {
## Data preparation
library(ggplot2)
data(PoDParams)
data(estimatedParameters)
## Example 1
# titers for which we want calculate the confidence intervals
titers <- seq(from = 0, to = 15, by = 0.01)
# squared error of CurveTitersMedian and functional values of "params" curve
PoDCurvePlot(titers,
estimatedParameters,
ci = 0.95)
# }
Run the code above in your browser using DataLab