peakplot(peptideStd[[40]]$peptideSequence, peptideStd[[40]])
download.file("http://fgcz-data.uzh.ch/~cpanse/specL/data/peptideStd.blib",
destfile="peptideStd.blib")
download.file("http://fgcz-data.uzh.ch/~cpanse/specL/data/peptideStd.redundant.blib",
destfile="peptideStd.redundant.blib")
# checksum
if (require(tools)){
md5sum(c("peptideStd.blib", "peptideStd.redundant.blib")) ==
c("3f231931e54efd6516d7aa302073b17f",
"8bab829d9e99344136613a17c0374b90")
}
peptideStd <- read.bibliospec("peptideStd.blib")
peptideStd.redundant <- read.bibliospec("peptideStd.redundant.blib")
Run the code above in your browser using DataLab