4.2 Test the given fabric groups

The fabric groups defined in previous studies can be tested against Protocol 2 distance matrices. We can use either “prot2a_2d$dist_matrix” or “prot2a_3d$dist_matrix”, because they are the same. Remember that this test batch may take several minutes.

prot2a_tests <- test_groups(prot2a_2d$dist_matrix, 
                            factor_list$FabricGroup)
#> [1] "initiating test batch..."
#> [1] "vegan::anosim done."
#> [1] "vegan::betadisper done."
#> [1] "vegan::permutest done."
#> [1] "vegan::adonis done."
#> [1] "Test batch completed."
prot2b_tests <- test_groups(prot2b_2d$dist_matrix,
                            factor_list$FabricGroup)
#> [1] "initiating test batch..."
#> [1] "vegan::anosim done."
#> Warning in vegan::betadisper(distMatrix, groups): some squared distances
#> are negative and changed to zero
#> [1] "vegan::betadisper done."
#> [1] "vegan::permutest done."
#> [1] "vegan::adonis done."
#> [1] "Test batch completed."

These tests were explained in protocol 1.