if (FALSE) {
ape::rtree(100)->tree
phytools::fastBM(tree)->y
max(diag(vcv(tree)))->H
RRphylo(tree,y,clus=0)->RR
rescaleRR(tree,RR=RR)->treeRR
rescaleRR(tree,height=H/3)->tree_height
rescaleRR(tree,trend=5)->tree_trend
rescaleRR(tree,delta=0.5)->tree_delta05
rescaleRR(tree,delta=2)->tree_delta2
rescaleRR(tree,kappa=0.5)->tree_kappa
rescaleRR(tree,lambda=0.5)->tree_lambda
}
Run the code above in your browser using DataLab