# NOT RUN {
# Example with continuous age variable
data.ppvt <- rankBySlidingWindow(ppvt, age="age", width=1.5)
data.ppvt <- computePowers(data.ppvt, age="age")
model.ppvt <- bestModel(data.ppvt, R2 = .994)
# plot information function
plotSubset(model.ppvt, type=2)
# check model consistency
checkConsistency(model.ppvt)
# plot percentiles
plotPercentiles(data.ppvt, model.ppvt)
# }
Run the code above in your browser using DataLab