library(mctoolsr)
context("Diversity calculations")
test_that("Diversity calculations are correct", {
expect_identical(calc_diversity(fruits_veggies$data_loaded, "shannon"),
vegan::diversity(fruits_veggies$data_loaded, "shannon",
MARGIN = 2))
expect_identical(calc_diversity(fruits_veggies$data_loaded, "simpson"),
vegan::diversity(fruits_veggies$data_loaded, "simpson",
MARGIN = 2))
expect_equal(calc_diversity(fruits_veggies$data_loaded, "richness"),
colSums(fruits_veggies$data_loaded !=0))
})
test_that("Plot is generated properly", {
expect_error(plot_diversity(fruits_veggies, "Sample_type", "shannon"), NA)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.