powered by
mantel.randtest(m1, m2, nrepet = 999)
data(yanomama) gen <- quasieuclid(as.dist(yanomama$gen)) geo <- quasieuclid(as.dist(yanomama$geo)) plot(r1 <- mantel.randtest(geo,gen), main = "Mantel's test") r1
Run the code above in your browser using DataLab