tests/testthat/test.Rarefaction.r

In lem-usp/EvolQG: Evolutionary Quantitative Genetics

test_that("RarefactionRandomSkewers returns sensible results",
          {
            ind.data <- matrix(rnorm(30*10), 30, 10)
            results <- Rarefaction(ind.data, RandomSkewers, num.reps = 5)
            expect_that(results, is_a("list"))
            expect_that(names(results), equals(as.character(3:30)))
            expect_that(length(results[[1]]), equals(5))
          }
)
test_that("RarefactionMantelCor returns sensible results",
          {
            ind.data <- matrix(rnorm(30*10), 30, 10)
            results <- Rarefaction(ind.data, MatrixCor, correlation = TRUE, num.reps = 5)
            expect_that(results, is_a("list"))
            expect_that(names(results), equals(as.character(3:30)))
            expect_that(length(results[[1]]), equals(5))
          }
)
test_that("RarefactionKrzCor returns sensible results",
          {
            ind.data <- matrix(rnorm(30*10), 30, 10)
            results <- Rarefaction(ind.data, KrzCor, num.reps = 5)
            expect_that(results, is_a("list"))
            expect_that(names(results), equals(as.character(3:30)))
            expect_that(length(results[[1]]), equals(5))
          }
)
test_that("RarefactionKrzCor returns sensible results",
          {
            ind.data <- matrix(rnorm(30*10), 30, 10)
            results <- Rarefaction(ind.data, KrzCor, num.reps = 5, correlation = TRUE)
            expect_that(results, is_a("list"))
            expect_that(names(results), equals(as.character(3:30)))
            expect_that(length(results[[1]]), equals(5))
          }
)
test_that("RarefactionPCAsimilarity returns sensible results",
{
  ind.data <- matrix(rnorm(30*10), 30, 10)
  results <- Rarefaction(ind.data, PCAsimilarity, num.reps = 5, correlation = TRUE)
  expect_that(results, is_a("list"))
  expect_that(names(results), equals(as.character(3:30)))
  expect_that(length(results[[1]]), equals(5))
}
)