#library(DESeq)
#library(lattice)
#data(mockRnaSeqData)
#conditions <- c(rep("case",3), rep("control", 3))
#cds<-newCountDataSet(mockRnaSeqData, conditions)
#cds<-estimateSizeFactors(cds)
#cds<-estimateDispersions(cds)
#res<-nbinomTest(cds,"control", "case" )
#desReport <- HTMLReport(shortName = 'RNAseq_analysis_with_DESeq',
#title = 'RNA-seq analysis of differential expression using DESeq',
#reportDirectory = "./reports")
#publish(res,desReport,name="df",countTable=mockRnaSeqData,
#pvalueCutoff=0.05,
##conditions=conditions,annotation.db="org.Mm.eg.db",
#expName="deseq",reportDir="./reports", .modifyDF=makeDESeqDF)
#finish(desReport)
Run the code above in your browser using DataLab