library(data.table)
data <- data.table(
EG.ModifiedPeptide = c(
"_[Acetyl (Protein N-term)]M[Oxidation (M)]DDREDLVYQAK_",
"_EAAENSLVAYK_",
"_IEAELQDIC[Carbamidomethyl (C)]NDVLELLDK_"
),
Condition = c("A", "B", "B")
)
PTM_table <- data.table(
PTM_mass = c(
'Acetyl (Protein N-term)',
'Oxidation (M)',
'Carbamidomethyl (C)'
),
PTM_type = c("Acet", "Ox", "Cam")
)
converted_data <- obtain_mod_Spectronaut(data, 'EG.ModifiedPeptide',
PTM_table, PTM_annotation = TRUE,
PTM_mass_column = "PTM_mass")
data <- data.table(
EG.IntPIMID = c(
"_[+42]M[-0.98]DDREDLVYQAK_",
"_EAAENSLVAYK_",
"_IEAELQDIC[+57]NDVLELLDK_"
),
Condition = c("A", "B", "B")
)
PTM_table <- data.table(PTM_mass = c(42, -0.98, 57),
PTM_type = c("Acet", "Amid", "Cam"))
PTM_mass_column <- "PTM_mass"
converted_data <- obtain_mod_Spectronaut(data,
'EG.IntPIMID',
PTM_table,
PTM_annotation = TRUE,
PTM_mass_column)
Run the code above in your browser using DataLab