if (FALSE) {
ape::rtree(100)->tree
phytools::fastBM(tree)->y
max(diag(vcv(tree)))->Hmax
RRphylo(tree,y,clus=0)->RRy
rescaleRR(tree,RR=RRy)->treeRR
rescaleRR(tree,height=Hmax/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