Last chance! 50% off unlimited learning
Sale ends in
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