# NOT RUN {
split_formula <- BMI ~ HISP + WHITE + BLACK + SEX +
Num_sibs + HGC_FATHER + HGC_MOTHER
tree <- splineTree(split_formula, BMI~AGE, 'ID', nlsySample, degree=1,
df=3, intercept=TRUE, cp=0.006, minNodeSize=20)
# }
# NOT RUN {
node6data <- getNodeData(tree, 6, dataType = 'all')
plot(BMI~AGE, data=node6data)
# }
Run the code above in your browser using DataLab