library(data.table)
data <- data.table(
Modified.Sequence = c(
"AAAAGPGAALS(UniMod:21)PRPC(UniMod:4)DSDPATPGAQSPK",
"AAAASAAEAGIATTGTEDSDDALLK",
"AAAAALSGSPPQTEKPT(UniMod:21)HYR"
),
Stripped.Sequence = c(
"AAAAGPGAALSPRPCDSDPATPGAQSPK",
"AAAASAAEAGIATTGTEDSDDALLK",
"AAAAALSGSPPQTEKPTHYR"
),
Condition = c("A", "B", "B")
)
PTM_table <- data.table(PTM_mass = c('UniMod:21', 'UniMod:4'),
PTM_type = c("Phos", "Cam"))
converted_data <- obtain_mod_DIANN(
data,
'Modified.Sequence',
PTM_table,
PTM_annotation = TRUE,
PTM_mass_column = "PTM_mass"
)
Run the code above in your browser using DataLab