library(data.table)
data <- data.table(
Peptide = c(
"AAN(+0.98)Q(-0.98)RGSLYQCDYSTGSC(+57.02)EPIR",
"K.AAQQTGKLVHANFGT.K",
"K.(+0.98)AATVTGKLVHANFGT.K"
),
Condition = c("A", "B", "B")
)
column <- "Peptide"
convert_column <- "Sequence"
converted_data <- strip_sequence_PEAKS(data, column, convert_column)
Run the code above in your browser using DataLab