library(data.table)
data <- data.table(
Modified.Sequence = c(
"AAAAGPGAALS(UniMod:21)PRPC(UniMod:4)DSDPATPGAQSPK",
"AAAASAAEAGIATTGTEDSDDALLK",
"AAAAALSGSPPQTEKPT(UniMod:21)HYR"
),
Condition = c("A", "B", "B")
)
column <- 'Modified.Sequence'
convert_column <- 'Sequence'
converted_data <- strip_sequence_DIANN(data, column, convert_column)
Run the code above in your browser using DataLab