New function to extract clade of tree with singletons
New function to extract clade of tree with singletons

This function extract clade of tree with singletons. It is used as
internal call from drop.clade.label. But it can be used alone too.

MarioJose/r-functions