Add a singular root node to an existing nonsingular tree
add_root(tree_old, root_edge_length, root_label, leaf_label)a singular "phylo" tree
the original nonsingular "phylo" tree
a number in (0, 1) representing the distance between the new and the original root nodes
a character label of the new root node
a character label of the leaf node