#load whales dataset
data(whales, events.whales)
ed <- getEventData(whales, events.whales, burnin=0.25, nsamples=500)
#for demonstration purposes, we will extract the vector of speciation rates
ed <- dtRates(ed, tau=0.01)
vec <- ed$dtrates$rates[[1]]
#Return breaks for the binning of speciation rates into 64 groups
getJenksBreaks(vec, 64)Run the code above in your browser using DataLab