data(ExampleData)
conditions <- factor(c(rep('C1', 3), rep('C2', 3)))
XB <- XBSeqDataSet(Observed, Background, conditions)
XB <- estimateRealCount(XB)
XB <- estimateSizeFactors(XB)
XB <- estimateSCV(XB)
Teststas <- XBSeqTest(XB, levels(conditions)[1L], levels(conditions)[2L])
str(Teststas)
Run the code above in your browser using DataLab