data(whales, events.whales)
ed <- getEventData(whales, events.whales, burnin=0.25, nsamples=500)
# use all posterior samples
ed <- dtRates(ed, tau=0.01)
# use specified range of posterior samples
ed <- dtRates(ed, tau=0.01, ism=50:150)
Run the code above in your browser using DataLab