view flatten_mzIdentML.R @ 66:d8cc862e6412 draft

Uploaded
author bornea
date Sat, 27 Aug 2016 22:14:02 -0400
parents
children 47aa4f551c53
line wrap: on
line source

#! /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)