tests/testthat/test-roxytest-testexamples-get_sig_exposure.R

In ShixiangWang/sigminer: Extract, Analyze and Visualize Mutational Signatures for Genomic Variations

# Generated by roxytest: do not edit by hand!

# File R/get_sig_exposure.R: @testexamples

test_that("Function get_sig_exposure() @ L39", {
  
  # Load mutational signature
  load(system.file("extdata", "toy_mutational_signature.RData",
    package = "sigminer", mustWork = TRUE
  ))
  # Get signature exposure
  expo1 <- get_sig_exposure(sig2)
  expo1
  expo2 <- get_sig_exposure(sig2, type = "relative")
  expo2
  expect_equal(nrow(expo1), 188L)
  expect_equal(nrow(expo2), 186L)
})