use correct function in test

omnideconv · Dec 14, 2023 · f6de93e · f6de93e
1 parent 702c873
commit f6de93e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: SimBu
 Title: Simulate Bulk RNA-seq Datasets from Single-Cell Datasets
-Version: 1.5.3
+Version: 1.5.4
 Authors@R: 
     person(given = "Alexander",
            family = "Dietrich",

diff --git a/tests/testthat/test_simulator.R b/tests/testthat/test_simulator.R
@@ -48,8 +48,8 @@ test_that("test RNG", {
   seed <- 123
   sim1 <- SimBu::simulate_bulk(data = dataset, scenario = "even", scaling_factor = "NONE", balance_even_mirror_scenario = 0, nsamples = 10, ncells = 100, run_parallel = FALSE, seed = seed)
   sim2 <- SimBu::simulate_bulk(data = dataset, scenario = "even", scaling_factor = "NONE", balance_even_mirror_scenario = 0, nsamples = 10, ncells = 100, run_parallel = FALSE, seed = seed)
-  x1 <- rowSums(assays(sim1$bulk)[['bulk_counts']])
-  x2 <- rowSums(assays(sim2$bulk)[['bulk_counts']])
+  x1 <- Matrix::rowSums(assays(sim1$bulk)[['bulk_counts']])
+  x2 <- Matrix::rowSums(assays(sim2$bulk)[['bulk_counts']])
   testthat::expect_equal(x1,x2)
 
   # test that samples inside one simulation still are different