inst/scripts/makeexp.R

library("RforProteomics")
msfile <- getPXD000001mzXML()
library("MSnbase")
exp0 <- readMSData(msfile, verbose = FALSE)

exp <- exp0[seq(1, length(exp0), by = 3)]
save(exp, file = "~/dev/00_github/qcmetrics/inst/extdata/exp.rda",
     compress = "xz", compression_level = 9)
lgatto/qcmetrics documentation built on Feb. 4, 2024, 12:20 p.m.