Nothing
test_that("distinct_test() works faultlessly.", {
data("Kang_subset", package = "distinct")
# create the design of the study:
samples = Kang_subset@metadata$experiment_info$sample_id
group = Kang_subset@metadata$experiment_info$stim
design = model.matrix(~group)
# rownames of the design must indicate sample ids:
rownames(design) = samples
set.seed(61217)
res = distinct_test(
x = Kang_subset,
name_assays_expression = "logcounts",
name_cluster = "cell",
design = design,
column_to_test = 2,
min_non_zero_cells = 20,
n_cores = 2)
expect_is(res, "data.frame")
})
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.