tests/testthat/test-cnv-titan.R

context("TitanCNA tsv")

titan <- system.file("extdata", "HCC2218_titan.segs.tsv", package = "pebbles")
cn_titan <- prep_titan_seg(titan)
cn_titan2 <- read_cnv(titan)

test_that("object is of cnv class", {
  expect_equal(class(cn_titan), "cnv")
  expect_equal(class(cn_titan2), "cnv")
})
pdiakumis/rock documentation built on Oct. 12, 2020, 9:38 a.m.