#load data
data(retiolitinae)
#Can plot discrete time interval diversity curve with retioRanges
taxicDivDisc(retioRanges)
#Can plot the unscaled cladogram
plot(retioTree)
#Use basic time-scaling (terminal branches only go to FADs)
ttree<-bin_timePaleoPhy(tree=retioTree,timeList=retioRanges,type="basic",
ntrees=1,plot=TRUE)
#Note that this function creates stochastic time-scaled trees...
#A sample of 1 is not representative!
#phylogenetic diversity curve
phyloDiv(ttree)
Run the code above in your browser using DataLab