tests/testthat/test-sparse_sweep.R
In const-ae/transformGamPoi: Variance Stabilizing Transformation for Gamma-Poisson Models
test_that("sweep for dgCMatrices works", {
mat <- matrix(0, nrow = 10, ncol = 17)
mat[sample.int(length(mat), 20)] <- rnorm(n = 20)
sp_mat <- as(mat, "dgCMatrix")
expect_equal(sparse_divide_out_size_factor(sp_mat, 8), DelayedArray::sweep(sp_mat, 2, 8, FUN = "/"))
expect_equal(sparse_divide_out_size_factor(sp_mat, 1:17), DelayedArray::sweep(sp_mat, 2, 1:17, FUN = "/"))
})
const-ae/transformGamPoi documentation built on April 14, 2023, 11:33 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("sweep for dgCMatrices works", {
mat <- matrix(0, nrow = 10, ncol = 17)
mat[sample.int(length(mat), 20)] <- rnorm(n = 20)
sp_mat <- as(mat, "dgCMatrix")
expect_equal(sparse_divide_out_size_factor(sp_mat, 8), DelayedArray::sweep(sp_mat, 2, 8, FUN = "/"))
expect_equal(sparse_divide_out_size_factor(sp_mat, 1:17), DelayedArray::sweep(sp_mat, 2, 1:17, FUN = "/"))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.