library(data.table)
data <- data.table(
modified_peptide = c(
"AAM[15.9949]Q[-0.98]RGSLYQCDYSTGSC[57.02]EPIR",
"K.AAQQTGKLVHANFGT.K",
"K.[-0.98]AATVTGKLVHANFGT.K"
),
plain_peptide = c(
"AAMQRGSLYQCDYSTGSCEPIR",
"AAQQTGKLVHANFGT",
"AATVTGKLVHANFGT"
),
Condition = c("A", "B", "B")
)
PTM_table <- data.table(
PTM_mass = c(57.02, -0.98, 15.9949),
PTM_type = c("Cam", "Amid", "Ox")
)
mod_column <- 'modified_peptide'
PTM_mass_column <- "PTM_mass"
converted_data <- obtain_mod_Comet(data, mod_column, PTM_table,
PTM_annotation = TRUE, PTM_mass_column)
Run the code above in your browser using DataLab