tests/testthat/test-getSVD.R

In biobenkj/compartmentalizer: Higher-order chromatin domain inference in single samples from methylation arrays and single cells from scRNA-seq and scATAC-seq

test_that("getSVD", {
})

library("BiocSingular")
test_that(".getUV", {
  mat <- matrix(runif(1000, 1, 100), nrow = 100)
  svd <- runSVD(mat, k = 1, BSPARAM = IrlbaParam())
  expect_equal(
    abs(compartmap:::.getUV(mat, k = 1, "left")),
    abs(svd$u)
  )
  expect_equal(
    abs(compartmap:::.getUV(mat, k = 1, "right")),
    abs(svd$v)
  )
})