# NOT RUN {
library(ape)
tree<-ape::rtree(20)
tree$tip.label<-sample(tree$tip.label[1:10],size=20,replace = TRUE)
plot(tree)
sppVector<-tree$tip.label
MP<-monophyly.prop(tree,sppVector,singletonsMono = TRUE)
MP
# }
Run the code above in your browser using DataLab