Data file: B_625_625_5spc_repl1.rds
require(edgeR)
cdata <- readRDS("B_625_625_5spc_repl1.rds")
is.valid <- check_compData(cdata)
if (!(is.valid == TRUE)) stop("Not a valid compData object.")
edgeR.dgelist <- edgeR::DGEList(counts = count.matrix(cdata), group = factor(sample.annotations(cdata)$condition))
edgeR.dgelist <- edgeR::calcNormFactors(edgeR.dgelist, method = "TMM")
edgeR.dgelist <- edgeR::estimateCommonDisp(edgeR.dgelist)
edgeR.dgelist <- edgeR::estimateTagwiseDisp(edgeR.dgelist, trend = "movingave")
dispersion.S1 <- edgeR.dgelist$tagwise.dispersion
dispersion.S2 <- edgeR.dgelist$tagwise.dispersion
edgeR.exacttest <- edgeR::exactTest(edgeR.dgelist)
edgeR.pvalues <- edgeR.exacttest$table$PValue
edgeR.adjpvalues <- p.adjust(edgeR.pvalues, method = "BH")
edgeR.logFC <- edgeR.exacttest$table$logFC
edgeR.score <- 1 - edgeR.pvalues
result.table <- data.frame(pvalue = edgeR.pvalues, adjpvalue = edgeR.adjpvalues,
logFC = edgeR.logFC, score = edgeR.score, dispersion.S1 = dispersion.S1,
dispersion.S2 = dispersion.S2)
rownames(result.table) <- rownames(count.matrix(cdata))
result.table(cdata) <- result.table
package.version(cdata) <- paste("edgeR,", packageVersion("edgeR"))
analysis.date(cdata) <- date()
method.names(cdata) <- list(short.name = "edgeR", full.name = "edgeR.3.4.2.exact.TMM.movingave.tagwise")
is.valid <- check_compData_results(cdata)
if (!(is.valid == TRUE)) stop("Not a valid compData result object.")
saveRDS(cdata, "/Users/charlotte/Documents/Projects/Rpackages/compcoder/compcodeR/vignettes/B_625_625_5spc_repl1_edgeR.exact.rds")
print(paste("Unique data set ID:", info.parameters(cdata)$uID))
[1] "Unique data set ID: B6Wo1X5LIQ"
sessionInfo()
R version 3.0.2 (2013-09-25)
Platform: x86_64-apple-darwin10.8.0 (64-bit)
locale:
[1] sv_SE.UTF-8/sv_SE.UTF-8/sv_SE.UTF-8/C/sv_SE.UTF-8/sv_SE.UTF-8
attached base packages:
[1] splines parallel tcltk stats graphics grDevices utils
[8] datasets methods base
other attached packages:
[1] compcodeR_0.99.1 genefilter_1.44.0
[3] TCC_1.2.0 ROC_1.38.0
[5] samr_2.0 matrixStats_0.8.14
[7] impute_1.36.0 NOISeq_2.4.0
[9] NBPSeq_0.1.8 qvalue_1.36.0
[11] HTSDiff_1.0.1 HTSCluster_2.0.1
[13] RColorBrewer_1.0-5 ggplot2_0.9.3.1
[15] plotrix_3.5-3 edgeR_3.4.2
[17] limma_3.18.11 EBSeq_1.2.0
[19] gplots_2.12.1 blockmodeling_0.1.8
[21] DSS_1.8.0 locfdr_1.1-7
[23] DESeq2_1.2.10 RcppArmadillo_0.4.000.2
[25] Rcpp_0.11.0 DESeq_1.14.0
[27] lattice_0.20-24 locfit_1.5-9.1
[29] Biobase_2.22.0 baySeq_1.16.0
[31] GenomicRanges_1.14.4 XVector_0.2.0
[33] IRanges_1.20.6 BiocGenerics_0.8.0
[35] rpanel_1.1-2 sm_2.2-5.4
[37] roxygen2_3.1.0 devtools_1.5
loaded via a namespace (and not attached):
[1] annotate_1.40.0 AnnotationDbi_1.24.0 bitops_1.0-6
[4] brew_1.0-6 bsseq_0.10.0 caTools_1.16
[7] codetools_0.2-8 colorspace_1.2-4 DBI_0.2-7
[10] dichromat_2.0-0 digest_0.6.4 evaluate_0.5.1
[13] formatR_0.10 gdata_2.13.2 geneplotter_1.40.0
[16] grid_3.0.2 gtable_0.1.2 gtools_3.2.1
[19] httr_0.2 KernSmooth_2.23-10 knitr_1.5
[22] labeling_0.2 markdown_0.6.4 MASS_7.3-29
[25] memoise_0.1 modeest_2.1 munsell_0.4.2
[28] plyr_1.8 proto_0.3-10 R.methodsS3_1.6.1
[31] RCurl_1.95-4.1 reshape2_1.2.2 ROCR_1.0-5
[34] RSQLite_0.11.4 scales_0.2.3 stats4_3.0.2
[37] stringr_0.6.2 survival_2.37-7 tools_3.0.2
[40] vioplot_0.2 whisker_0.3-2 XML_3.95-0.2
[43] xtable_1.7-1