# NOT RUN {
## Calculate NAP for a study with lower expected phase B scores (e.g. aggressive behavior)
gretchen <- scdf(c(A = 12,14,9,10, B = 10,6,4,5,3,4))
nap(gretchen, decreasing = TRUE)
## Request NAP for all cases from the Grosche2011 data
nap(Grosche2011)
# }
Run the code above in your browser using DataLab