tests/testthat/test_chromo.R
In winnie0521/qckitrna:
testthat::test_that("Test chromosome",{
bamfile <- system.file("extdata", "ex1.bam", package="Rsamtools",
mustWork=TRUE)
testthat::expect_equal(as.numeric(chromosome(bamfile,'count')[1]),1501)
testthat::expect_equal(round(as.numeric(chromosome(bamfile,'rate')[1]),3),0.454)
})
winnie0521/qckitrna documentation built on May 10, 2019, 1:10 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
testthat::test_that("Test chromosome",{
bamfile <- system.file("extdata", "ex1.bam", package="Rsamtools",
mustWork=TRUE)
testthat::expect_equal(as.numeric(chromosome(bamfile,'count')[1]),1501)
testthat::expect_equal(round(as.numeric(chromosome(bamfile,'rate')[1]),3),0.454)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.