force_ultrametric function

Force a non-ultrametric phylo object to be ultrametric with phytools::force.ultrametric().