# loading data
data("Cetacea")
data("shifts_cetacea")
# with shifts_cetacea the output from shift.estimates()
rates <- div.rates(phylo = Cetacea, shift.res = shifts_cetacea,
combi = 1, part = "all")
Run the code above in your browser using DataLab