library(data.table)
data <- data.table(
'Modified Peptide' = c(
"AAM[15.9949]Q[-0.98]RGSLYQCDYSTGSC[57.02]EPIR",
"K.AAQQTGKLVHANFGT.K",
"K.[0.98]AATVTGKLVHANFGT.K"
),
Condition = c("A", "B", "B")
)
column <- 'Modified Peptide'
convert_column <- 'Sequence'
converted_data <- strip_sequence_MSFragger(data, 'Modified Peptide', 'Sequence')
Run the code above in your browser using DataLab