# 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")
compare_SAC(SAC_selected_sites = SACs, element_1 = 1, element_2 = 2)
# }
Run the code above in your browser using DataLab