Return a tree with the span of a node altered.
Examples
tree <- randTree(10)
tree <- setNdSpn(tree, id = "t1", val = 100)
tree <- updateSlts(tree)
summary(tree)
#> Tree (TreeMan Object):
#> + 10 tips
#> + 9 internal nodes
#> + Binary
#> + PD 107
#> + Root node is "n1"