context("Clonal Diversity Functions")
data(wu_subset)
test_that("rank_abundance works", {
testthat::expect_type(barcodetrackR::rank_abundance_plot(wu_subset[, 1:5]), "list")
testthat::expect_s3_class(barcodetrackR::rank_abundance_plot(wu_subset[, 1:5], return_table = TRUE), "data.frame")
})
# > Test passed 🥳
test_that("clonal_diversity works", {
testthat::expect_type(barcodetrackR::clonal_diversity(wu_subset,
plot_over = "months",
group_by = "celltype"
), "list")
testthat::expect_s3_class(barcodetrackR::clonal_diversity(wu_subset,
plot_over = "months",
group_by = "celltype",
return_table = TRUE
), "data.frame")
})
# > Test passed 🥳
test_that("clonal_count works", {
testthat::expect_type(barcodetrackR::clonal_count(wu_subset,
plot_over = "months",
group_by = "celltype"
), "list")
testthat::expect_s3_class(barcodetrackR::clonal_count(wu_subset,
plot_over = "months",
group_by = "celltype",
return_table = TRUE
), "data.frame")
})
# > Test passed 🥳
test_that("mds_plot works", {
testthat::expect_type(barcodetrackR::mds_plot(wu_subset[, 1:5]), "list")
testthat::expect_s3_class(barcodetrackR::mds_plot(wu_subset[, 1:5], return_table = TRUE), "data.frame")
})
# > Test passed 🥳
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.