library(qpcR)
# Analyze data from the boggy data set for potential hook effect like
# curvature
# 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