library(data.table)
data <- data.table(
Peptide = c(
"AAN(+42)Q(-0.98)RGSLYQCDYSTGSC(+57.02)EPIR",
"K.AAQQTGKLVHANFGT.K",
"K.(-0.98)AATVTGKLVHANFGT.K"
),
Sequence = c(
"AANQRGSLYQCDYSTGSCEPIR",
"AAQQTGKLVHANFGT",
"AATVTGKLVHANFGT"
),
Condition = c("A", "B", "B")
)
PTM_table <- data.table(PTM_mass = c(42, -0.98, 57.02),
PTM_type = c("Acet", "Amid", "Cam"))
mod_column <- "Peptide"
PTM_mass_column <- "PTM_mass"
converted_data <- obtain_mod_PEAKS(data, mod_column, PTM_table,
PTM_annotation = TRUE, PTM_mass_column)
Run the code above in your browser using DataLab