# NOT RUN {
library(dplyr)
file = system.file("extdata/IDResults.txt.gz" , package = "prozor")
specMeta <- readr::read_tsv(file)
upeptide <- unique(specMeta$peptideSeq)
resCan <-
prozor::readPeptideFasta(
system.file("p1000_db1_example/Annotation_canSeq.fasta.gz" , package = "prozor"))
annotAll = prozor::annotatePeptides(upeptide[seq_len(20)], resCan)
dim(annotAll)
res <- mutate(annotAll, proteinlength = nchar(proteinSequence))
res <- select(res, proteinID, peptideSeq, proteinlength, Offset, lengthPeptide)
head(res)
# }
Run the code above in your browser using DataLab