tests/testthat/test_XBplot.R

In XBSeq: Test for differential expression for RNA-seq data

data("ExampleData")
conditions <- factor(c(rep('C',3), rep('T', 3)))
XB <- XBSeqDataSet(Observed, Background, conditions)
expect_error(XBplot(XB))

expect_error(XBplot(XB, Samplenum = 7))

expect_warning(XBplot(XB, Samplenum = 1, unit = 'LogTPM', Genelength = genelength[,2]))

expect_error(XBplot(XB, Samplenum = 1, unit = 'LogTPM'))

expect_error(XBplot(XB, Samplenum = 1, unit = 'LogTPM', Genelength = genelength))

expect_error(XBplot(XB, Samplenum = 1, unit = 'LogTPM', Genelength = genelength[-1,2]))