# Getting the Taxus baccata forests data set
data(taxus_bin)
# Creating a group partition, as presented in the original article of the
# data set
groups <- rep(c(1, 2, 3), c(3, 11, 19))
# Removing taxa occurring in only one relevé in order to
# reproduce exactly the example in the original article of the data set
taxus_bin_wmt <- taxus_bin[rowSums(taxus_bin) > 1, ]
# Sorting the phytosociological table, putting exclusive taxa in the top and
# plotting an image of it
tabul <- tabulation(
m_bin = taxus_bin_wmt,
p = groups,
taxa_names = rownames(taxus_bin_wmt),
plot_im = "normal",
palette = "Zissou 1"
)
# Inspect the first rows and columns of the reordered phytosociological table
head(tabul$tabulated, n = c(5, 5))
Run the code above in your browser using DataLab