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