if (FALSE) {
DataFelids$tree->treefel
set.seed(22)
drop.tip(treefel,sample(treefel$tip.label,20))->tree.red
swapONE(tree.red,si=0.5)[[1]]->tree.red
sample(tree.red$tip.label,10)->focal.species
treeCompare(treefel,tree.red)->comp
treeCompare(treefel,tree.red,focal=focal.species)->comp1
}
Run the code above in your browser using DataLab