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"))
})

Try the cosmicsig package in your browser

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

cosmicsig documentation built on Aug. 30, 2023, 9:10 a.m.