Mercurial > repos > kpbioteam > minfi_qc

diff minfi_qc.R @ 0:7bd0d3c7a8d3 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload
author kpbioteam
date Tue, 06 Feb 2018 05:40:33 -0500
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/minfi_qc.R	Tue Feb 06 05:40:33 2018 -0500
@@ -0,0 +1,17 @@
+require("minfi", quietly = TRUE)
+
+args <- commandArgs(trailingOnly = TRUE)
+
+input = args[1] 
+output1 = args[2]
+output2 = args[3]
+
+MSet <- get(load(input))
+
+qc <- getQC(MSet)
+
+write.table(qc, output1)
+
+png(output2)
+plotQC(qc)
+dev.off()