Returns number of terminal nodes in a tree.

treeSize(model)

Arguments

model

A model returned by splineTree(). Also works on any rpart object

Value

The number of terminal nodes in the tree

Examples

# 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)
# }
treeSize(tree)
#> [1] 5