view minfi_qc.R @ 2:e1623ee43bc6 draft default tip

planemo upload for repository https://github.com/kpbioteam/minfi_qc commit bb1622e57b83aa260687997e48fc4ec7011f8642-dirty
author kpbioteam
date Wed, 27 Jun 2018 14:23:05 -0400
parents 7bd0d3c7a8d3
children
line wrap: on
line source

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()