tests/testthat/test-extract_row.R

context("test-extract_row")

m <- matrix(c(TRUE, TRUE, FALSE, TRUE), nrow = 2) > 0
m <- as(m, "RsparseMatrix")

r <- extract_row_lgRMatrix(m, 1)

test_that("extract_row_lgRMatrix works", {
  expect_equal(r, c(TRUE, FALSE))
})


m <- matrix(1:4, nrow = 2)
m <- as(m, "RsparseMatrix")

r <- extract_row_dgRMatrix(m, 1)

test_that("extract_row_dgRMatrix works", {
  expect_equal(r, c(1, 3))
})

Try the singleCellHaystack package in your browser

Any scripts or data that you put into this service are public.

singleCellHaystack documentation built on June 22, 2024, 11:57 a.m.