data(SEQC.Example)
exDat <- initDat(datType="count", isNorm=FALSE, exTable=MET.CTL.countDat,
filenameRoot="testRun", sample1Name="MET",
sample2Name="CTL", erccmix="RatioPair",
erccdilution=1/100, spikeVol=1, totalRNAmass=0.500,
choseFDR=0.1)
exDat <- est_r_m(exDat)
exDat <- dynRangePlot(exDat, allPoints="FALSE", labelReps ="FALSE")
exDat$Figures$dynRangePlot
Run the code above in your browser using DataLab