# HG changeset patch
# User bornea
# Date 1472350442 14400
# Node ID d8cc862e64124b1404493704e5861aa0e345b516
# Parent  a551998e1068e4c87e2a45d6c1b45cfda0934504
Uploaded

diff -r a551998e1068 -r d8cc862e6412 flatten_mzIdentML.R
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/flatten_mzIdentML.R	Sat Aug 27 22:14:02 2016 -0400
@@ -0,0 +1,9 @@
+#! /usr/bin/Rscript
+args <- commandArgs(trailingOnly = TRUE)
+#source("https://bioconductor.org/biocLite.R")
+#biocLite("mzID")
+library(mzID)
+library(dplyr)
+mzResults <- mzID(args[1])
+flatresults <- flatten(mzResults)
+write.table(flatresults,"flat_mzIdentML.txt",sep="\t",quote=FALSE,row.names=FALSE)
\ No newline at end of file