diff minfi_getM.R @ 0:e717ba37cdbd draft

planemo upload
author kpbioteam
date Mon, 05 Feb 2018 09:30:08 -0500
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/minfi_getM.R	Mon Feb 05 09:30:08 2018 -0500
@@ -0,0 +1,12 @@
+require("minfi", quietly = TRUE)
+
+args <- commandArgs(trailingOnly = TRUE)
+
+input = args[1] 
+output = args[2]
+
+RSet <- get(load(input))
+
+m <- getM(RSet)
+
+write.table(m, output)