as.ultrametric function

as.ultrametric