tests/testthat/test_mantel.R

context("Mantel test")
test_that("Permutation test and plotting", {
  expect_silent({
  	result <- mantel.test(list(dist(1:8), dist(sample(8:1)), dist(runif(8))),
    hammingdists(enumerate.meaningcombinations(c(2, 2, 2))))
    plot(result)
    plot(result[1,])
  })
})
kevinstadler/cultevo documentation built on Jan. 13, 2024, 11:22 p.m.