# Read gpr files
library(pepDat)
mapFile <- system.file("extdata/mapping.csv", package = "pepDat")
dirToParse <- system.file("extdata/gpr_samples", package = "pepDat")
pSet <- makePeptideSet(files = NULL, path = dirToParse,
mapping.file = mapFile, log=TRUE)
# Specify controls to be removed and empty controls
# to be used for background correction.
pSet <- makePeptideSet(files = NULL, path = dirToParse,
mapping.file = mapFile, log = TRUE,
rm.control.list = c("JPT-control", "Ig", "Cy3"),
empty.control.list= c("empty", "blank control"))
Run the code above in your browser using DataLab