mantel.randtest(m1, m2, nrepet = 999)
dist
dist
randtest
(randomization tests)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