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")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.