Nothing
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))
}
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.