# NOT RUN {
## Generate a random pda tree with 50 tips
tr<-rtreeshape(n=1,tip.number=50,model="pda")
tr<-tr[[1]]
## Test the yule hypothesis, using subtrees of size 2 (Cherries),
## with the alternative hypothesis "less"
subtree.test(tr,size=2,alternative="less")
# }
Run the code above in your browser using DataLab