# \donttest{
# loading data
data("Cetacea")
data("taxo_cetacea")
# no shifts tested at genus level
taxo_cetacea_no_genus <- taxo_cetacea[names(taxo_cetacea) != "Genus"]
f_cetacea <- get.sampling.fractions(phylo = Cetacea,
data = taxo_cetacea_no_genus)
comb.shift_cetacea <- get.comb.shift(phylo = Cetacea,
data = taxo_cetacea_no_genus,
sampling.fractions = f_cetacea,
Ncores = 4)
# }
Run the code above in your browser using DataLab