Nothing
library(testthat)
library(RiboProfiling)
data(ctrlGAlignments)
aln <- ctrlGAlignments
alnGRanges <- readsToStartOrEnd(aln, what="start")
oneBinRanges <-
aroundPromoter(
TxDb.Hsapiens.UCSC.hg19.knownGene::TxDb.Hsapiens.UCSC.hg19.knownGene,
alnGRanges
)
listPromoterCov <- readStartCov(
alnGRanges,
oneBinRanges,
matchSize="all",
fixedInterval=c(-20, 20),
renameChr="aroundTSS",
charPerc="perc"
)
test_that("readStartCov output type",{
expect_is(listPromoterCov,"list")
expect_is(listPromoterCov[[1]],"GRanges")
}
)
test_that("readStartCov output dim",{
expect_equal(length(listPromoterCov[[1]]),41)
}
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.