library(data.table)
data <- data.table(
sequence = c("DDREDMLVYQAK", "EAAENSLVAYK", "IEAELQDICNDVLELLDK"),
modifications = c("4-UNIMOD:7,10-UNIMOD:35", NA, "8-UNIMOD:7"),
Condition1 = c("A", "B", "B"),
Condition2 = c("C", "C", "D")
)
PTM_table <- data.table(
PTM_mass = c("UNIMOD:7", "UNIMOD:35"),
PTM_type = c("Amid", "Ox")
)
mod_column <- "modifications"
seq_column <- "sequence"
converted_data <- obtain_mod_mzTab(
data,
mod_column,
seq_column,
PTM_table,
PTM_annotation = TRUE,
PTM_mass_column = "PTM_mass"
)
Run the code above in your browser using DataLab