# NOT RUN {
# Data
data("b_pam", package = "biosurvey")
data("m_selection", package = "biosurvey")
# Subsetting base PAM according to selections
sub_pam_all <- subset_PAM(b_pam, m_selection, selection_type = "all")
# Calculating dissimilarities
DI_sel <- selected_sites_DI(sub_pam_all)
# Plotting
plot_DI(DI_sel)
# }
Run the code above in your browser using DataLab