context("DGEList")
if (!exists("Y")) Y <- NULL
if (!exists("dlist")) dlist <- example_bioc_data("DGEList", y = Y)
test_that("facilitate.DGEList works", {
f <- facilitate(dlist)
expect_setequal(names(f), names(dlist))
expect_s4_class(f, "FacileDGEList")
expect_s4_class(f, "FacileBiocDataStore")
expect_s4_class(f, "FacileDataStore")
expect_s4_class(f, "DGEList")
checkmate::expect_list(ifacile(f))
covs <- samples(f) |>
with_sample_covariates("sex") |>
with_sample_covariates("sample_type")
expect_s3_class(covs, "facile_frame")
expect_equal(nrow(covs), unname(ncol(f)))
checkmate::expect_factor(covs[["sex"]], c("m", "f"))
checkmate::expect_factor(covs[["sample_type"]], c("normal", "tumor"))
expect_s4_class(fds(covs), "FacileDGEList")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.