tests/testthat/test-is_canonical.R

test_that("is_canonical works on basic example", {

  ref_junc <- toy_junc_id[1:3]

  exon_gr <- unlist(toy_transcripts)

  can <- is_canonical(toy_junc_id, ref_junc, exon_gr)

  expect_true(all(can[1:3]))
})
TRON-Bioinformatics/splice2neo documentation built on July 1, 2024, 7:57 p.m.