inst/unitTests/test_getSGFeatureCounts.R

test_getSGFeatureCounts <- function()
{

    path <- system.file("extdata", package = "SGSeq")
    si$file_bam <- file.path(path, "bams", si$file_bam)
    sgfc <- getSGFeatureCounts(si, sgf_pred)
    SGSeq:::checkIdenticalSummarizedExperiment(sgfc_pred, sgfc)
    
}

Try the SGSeq package in your browser

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

SGSeq documentation built on Nov. 8, 2020, 8:31 p.m.