tests/testthat/test_SBS96_ID_to_SBS192_ID.R

test_that("SBS96_ID_to_SBS192_ID", {
  SBS96.ids <- c("SBS1", "SBS23", "SBS25")
  SBS192.ids <- SBS96_ID_to_SBS192_ID(SBS96.ids)
  expect_equal(SBS192.ids, c("SBS1", "SBS23-E", "SBS25-E"))
})
Rozen-Lab/cosmicsig documentation built on Sept. 3, 2023, 8:50 a.m.