# 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")
SACs <- selected_sites_SAC(PAM_subset = sub_pam_all, selection_type = "all")
# Plotting
plot_SAC(SACs)
# }
Run the code above in your browser using DataLab