# styler: off
stem <- tribble(
~CensusID, ~treeID, ~stemID, ~status,
1, 1, 1, "A",
1, 1, 2, "D",
1, 2, 3, "D",
1, 2, 4, "D",
2, 1, 1, "A",
2, 1, 2, "G",
2, 2, 3, "D",
2, 2, 4, "G"
)
# styler: on
add_status_tree(stem)
Run the code above in your browser using DataLab