if (FALSE) {
data("DataCetaceans")
DataCetaceans$treecet->treecet
DataCetaceans$masscet->masscet
cc<- 2/parallel::detectCores()
RRphylo(tree=treecet,y=masscet,clus=cc)->RRcet
rateHistory(RR=RRcet)->rh
}
Run the code above in your browser using DataLab