library(data.table)
data <- data.table(
Peptide = c("DDREDMLVYQAK", "EAAENSLVAYK", "IEAELQDICNDVLELLDK"),
`Assigned Modifications` = c("C-term(15.9949), 6M(-0.98)", "", "N-term(42.0106)"),
Condition1 = c("A", "B", "B"),
Condition2 = c("C", "C", "D")
)
PTM_table <- data.table(
PTM_mass = c(42.0106, -0.98, 15.9949),
PTM_type = c("Acet", "Amid", "Ox")
)
mod_column <- "Assigned Modifications"
seq_column <- "Peptide"
converted_data <- obtain_mod_MSFragger(
data,
mod_column,
seq_column,
PTM_table,
PTM_annotation = TRUE,
PTM_mass_column = "PTM_mass"
)
Run the code above in your browser using DataLab