# NOT RUN {
# Analyze data from the boggy data set for potential hook effect like
# curvature
library(qpcR)
# has hook
res <- hookregNL(boggy[, 1], boggy[, 2])
res
# has no hook
res <- hookregNL(boggy[, 1], boggy[, 12])
res
# }
Run the code above in your browser using DataLab