mantel_test function

Compute Mantel test