splits <- as.Splits(PectinateTree(letters[1:9]))
splits
efgh <- Subsplit(splits, tips = letters[5:8], keepAll = TRUE)
summary(efgh)
TrivialSplits(efgh)
summary(Subsplit(splits, tips = letters[5:8], keepAll = FALSE))
Run the code above in your browser using DataLab