# NOT RUN {
library(phyclust, quiet = TRUE)
set.seed(1234)
ret.ms <- ms(5, 1, opts = paste("-T", sep = " "))
tree.ms <- read.tree(text = ret.ms[3])
is.ultrametric(tree.ms)
get.rooted.tree.height(tree.ms)
# }
Run the code above in your browser using DataLab