test_that("ThreeMostPairBam works properly", {
library("pasillaBamSubset")
BamfilePath=untreated3_chr4()
ThreeMostPairBam (BamfilePath=untreated3_chr4(),
OutDirPath=getwd(),
StrandType='forward-reverse')
expect_true(endsWith(basename(BamfilePath), '.bam'))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.