# NOT RUN {
# Load libraries
library(dplyr)
library(stringr)
library(tidyr)
library(comprehenr)
library(tibble)
# MaxQuant example data
evidence <- tibble::tibble(
"Modified sequence" = c("_AACLLPK_",
"_ALTDM(Oxidation (M))PQM(Oxidation (M))R_",
"ALTDM(Dummy_Modification)PQMK"),
Charge = c(2,2,3),
"Protein group IDs" = c("26", "86;17", "86;17")
)
proteingroups <- tibble::tibble(
"Protein IDs" = c("A0A075B6P5;P01615;A0A087WW87;P01614;A0A075B6S6", "P02671", "P02672"),
id = c(26, 86, 17)
)
# Conversion
convert_all_levels(
input_df = evidence,
input_MQ_pg = proteingroups,
software = "MaxQuant"
)
# }
Run the code above in your browser using DataLab