7.3 Test the given provenance groups

We can test the provenance assigned to shipwrecks’ amphorae samples together with those found and assigned to the workshops.

prot4_Shipwreck_tests <- test_groups(prot4_Shipwreck_2d$dist_matrix,
                                     factor_list_Shipwreck$ProvGroup)
#> [1] "initiating test batch..."
#> [1] "vegan::anosim done."
#> [1] "vegan::betadisper done."
#> [1] "vegan::permutest done."
#> [1] "vegan::adonis done."
#> [1] "Test batch completed."

These tests were explained in protocol 1.