# NOT RUN {
data("DataApes")
DataApes$PCstage->PCstage
DataApes$Tstage->Tstage
cc<- 2/parallel::detectCores()
RRphylo(tree=Tstage,y=PCstage,clus=cc)->RR
plotRates(RR,node=72,foldername=tempdir(),export.tiff = TRUE)
# }
Run the code above in your browser using DataLab