annot1 <- cbind( Leading.razor.protein=c("sp|P00925|ENO2_YEAST",
"sp|Q3E792|RS25A_YEAST", "sp|P09938|RIR2_YEAST", "sp|P09938|RIR2_YEAST",
"sp|Q99186|AP2M_YEAST", "sp|P00915|CAH1_HUMAN"),
Species= rep(c("Saccharomyces cerevisiae","Homo sapiens"), c(5,1)))
specPref1 <- list(conta="CON_|LYSC_CHICK",
mainSpecies="OS=Saccharomyces cerevisiae", spike="P00915") # MQ type
.extrSpecPref(specPref1, annot1, useColumn=c("Species","Leading.razor.protein"))
Run the code above in your browser using DataLab