# NOT RUN {
splits <- as.Splits(BalancedTree(letters[1:6]))
summary(splits)
TipsInSplits(splits)
summary(!splits)
TipsInSplits(!splits)
length(splits + !splits)
length(unique(splits + !splits))
summary(c(splits[[2:3]], !splits[[1:2]]))
moreSplits <- as.Splits(PectinateTree(letters[6:1]), tipLabel = splits)
print(moreSplits, details = TRUE)
match.Splits(splits, moreSplits)
in.Splits(moreSplits, splits)
# }
Run the code above in your browser using DataCamp Workspace