# NOT RUN {
## Data preparation
data(estimatedParameters)
## Example 1
# titers for which we want to optimize the functional values
titers <- seq(from = 0, to = 20, by = 0.01)
# Point estimate of PoD curve
PoDParamPointEstimation(estimatedParameters$resultsPriorReset, titers)
# }
Run the code above in your browser using DataLab