# loading data
data("Cetacea")
data("taxo_cetacea")
# no shifts tested at genus level
taxo_cetacea_no_genus <- taxo_cetacea[names(taxo_cetacea) != "Genus"]
# calculating sampling fractions with a plot
f_cetacea <- get.sampling.fractions(phylo = Cetacea, lad = FALSE,
data = taxo_cetacea_no_genus,
plot = TRUE, cex = 0.3)
Run the code above in your browser using DataLab