library(data.table)
data <- data.table(
'Modified sequence' = c(
"_GLGPSPAGDGPS(Phospho (STY))GSGK_",
"_HSSYPAGTEDDEGM(Oxidation (M))GEEPSPFR_",
"_HSSYPAGTEDDEGM(Oxidation (M))GEEPS(Phospho (STY))PFR_"
),
Condition = c("A", "B", "B")
)
PTM_table <- data.table(
PTM_mass = c('Phospho (STY)', 'Oxidation (M)'),
PTM_type = c("Phos", "Ox")
)
converted_data <- obtain_mod_Maxquant(
data,
'Modified sequence',
PTM_table,
PTM_annotation = TRUE,
PTM_mass_column = "PTM_mass"
)
Run the code above in your browser using DataLab