Fix typo in tests

satijalab · May 20, 2021 · 058325f · 058325f
1 parent 114c5b9
commit 058325f
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/tests/testthat/test_data_manipulation.R b/tests/testthat/test_data_manipulation.R
@@ -91,23 +91,23 @@ test_that("Fast implementation of row scaling returns expected values", {
   expect_true(max(mat.clipped, na.rm = T) >= 0.2)
 })
 
-mat <- as(object = matrix(rnorm(1000), nrow = 10, ncol = 10), Class = "dgCMatrix")
+mat <- as(object = matrix(rnorm(100), nrow = 10, ncol = 10), Class = "dgCMatrix")
 
 test_that("Row scaling with known stats works", {
   mat.rowmeans <- rowMeans(x = mat)
   mat.sd <- apply(X = mat, MARGIN = 1, FUN = sd)
   expect_equal(
-    t(scale(t(as.matrix(mat)), center = mat.rowmeans, scale = mat.sd)), 
+    t(scale(t(as.matrix(mat)), center = mat.rowmeans, scale = mat.sd)),
     FastSparseRowScaleWithKnownStats(mat = mat, mu = mat.rowmeans, sigma = mat.sd, scale = TRUE, center = TRUE, scale_max = 10, display_progress = FALSE),
     check.attributes = FALSE
   )
   expect_equal(
-    t(scale(t(as.matrix(mat)), center = FALSE, scale = mat.sd)), 
+    t(scale(t(as.matrix(mat)), center = FALSE, scale = mat.sd)),
     FastSparseRowScaleWithKnownStats(mat = mat, mu = mat.rowmeans, sigma = mat.sd, scale = TRUE, center = FALSE, scale_max = 10, display_progress = FALSE),
     check.attributes = FALSE
   )
   expect_equal(
-    t(scale(t(as.matrix(mat)), center = mat.rowmeans, scale = FALSE)), 
+    t(scale(t(as.matrix(mat)), center = mat.rowmeans, scale = FALSE)),
     FastSparseRowScaleWithKnownStats(mat = mat, mu = mat.rowmeans, sigma = mat.sd, scale = FALSE, center = TRUE, scale_max = 10, display_progress = FALSE),
     check.attributes = FALSE
   )