## Only run if DESeq is available
if(require(DESeq)){
## Create sample data
## Could be reads or FPKM from your input
exampleCounts <- counts(makeExampleCountDataSet())
testComb <- calcCombVals(exampleCounts,
groupID=c("A","B","*"),
colID=c("all"))
head(testComb)
basicTest <- calcBasicDE(testComb,"all_mean")
head(basicTest)
}
Run the code above in your browser using DataLab