# NOT RUN {
dim <- create_node(total_lab="Total")
dim <- add_nodes(dim, reference_node="Total", node_labs=LETTERS[1:4])
print(dim)
## add some levels below "A" and "C"
dim <- add_nodes(dim, reference_node="A", node_labs=paste0("a", 1:5))
dim <- add_nodes(dim, reference_node="C", node_labs=paste0("c", 1:5))
print(dim)
## delete some specific levels
dim <- delete_nodes(dim, reference_node="A", node_labs=c("a1", "a4"))
print(dim)
## delete entire subtree
dim <- delete_nodes(dim, reference_node="Total", node_labs=c("C"))
print(dim)
# plot(dim)
# }
Run the code above in your browser using DataLab