data("tree_data_example")
# Create Terminal Column
tree_data_example <- transform(tree_data_example,
terminal = ifelse(is.na(var),
TRUE,
FALSE))
# Create Split Value Column
tree_data_example <- transform(tree_data_example,
splitValue = ifelse(terminal == FALSE,
value,
NA_integer_))
# get the observations
getObservations(data = input_data, treeData = tree_data_example)
Run the code above in your browser using DataLab