if (FALSE) {
msbatch <- annotateFA(msbatch, dmz = 5)
plots <- plotFA(msbatch, dmz = 10)
pdf("FAs.pdf")
for (p in 1:length(plots)){
print(plots[[p]])
}
dev.off()
write.csv(msbatch$fas, file="faid.csv", row.names=FALSE)
faid <- read.csv("faid_curated.csv", sep=",", dec=".")
msbatch <- curateFAannotations(msbatch, faid)
}
Run the code above in your browser using DataLab