library(data.table)
data_skyline <- data.table(
'Peptide Modified Sequence' = c(
"AGLC[+57]QTFVYGGC[+57]R",
"AAAASAAEAGIATTGTEDSDDALLK",
"IVGGWEC[+57]EK"
),
Condition = c("A", "B", "B")
)
data_maxquant <- data.table(
'Modified sequence' = c(
"_(ac)AAAAELRLLEK_",
"_EAAENSLVAYK_",
"_AADTIGYPVM(ox)IRSAYALGGLGSGICPNK_"
),
Condition = c("A", "B", "B")
)
converted_data_skyline <- strip_sequence(data_skyline,
'Peptide Modified Sequence',
'Sequence',
"Skyline")
converted_data_maxquant <- strip_sequence(data_maxquant, 'Modified sequence',
'Sequence', "Maxquant")
Run the code above in your browser using DataLab