if (FALSE) {
# Basic norm table
model <- cnorm.shash(age, score)
tables <- normTable.shash(model, ages = c(7, 8, 9), start = 0, end = 50)
# With confidence intervals and finer granularity
tables_ci <- normTable.shash(model, ages = c(8, 9), start = 10, end = 40,
step = 0.5, CI = 0.95, reliability = 0.85)
}
Run the code above in your browser using DataLab