library(data.table)
data <- data.table(
EG.IntPIMID = c(
"_[+42]M[-16]DDREDLVYQAK_",
"_EAAENSLVAYK_",
"_IEAELQDIC[+57]NDVLELLDK_"
),
Condition = c("A", "B", "B")
)
converted_data <- strip_sequence_Spectronaut(data, 'EG.IntPIMID', 'Sequence')
Run the code above in your browser using DataLab