Mercurial > repos > bornea > saint_preprocessing

annotate flatten_mzIdentML.R @ 72:5ec0b997fb13 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author bornea
date Sat, 27 Aug 2016 23:26:10 -0400
parents d8cc862e6412
children 47aa4f551c53
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
66
d8cc862e6412 Uploaded
bornea
parents:
diff changeset
1 #! /usr/bin/Rscript
d8cc862e6412 Uploaded
bornea
parents:
diff changeset
2 args <- commandArgs(trailingOnly = TRUE)
d8cc862e6412 Uploaded
bornea
parents:
diff changeset
3 #source("https://bioconductor.org/biocLite.R")
d8cc862e6412 Uploaded
bornea
parents:
diff changeset
4 #biocLite("mzID")
d8cc862e6412 Uploaded
bornea
parents:
diff changeset
5 library(mzID)
d8cc862e6412 Uploaded
bornea
parents:
diff changeset
6 library(dplyr)
d8cc862e6412 Uploaded
bornea
parents:
diff changeset
7 mzResults <- mzID(args[1])
d8cc862e6412 Uploaded
bornea
parents:
diff changeset
8 flatresults <- flatten(mzResults)
d8cc862e6412 Uploaded
bornea
parents:
diff changeset
9 write.table(flatresults,"flat_mzIdentML.txt",sep="\t",quote=FALSE,row.names=FALSE)