library(data.table)
data <- data.table(
'Modified sequence' = c(
"_(ac)AA(ox)AAELRLLEK_",
"_EAAENSLVAYK_",
"_AADTIGYPVM(ox)IRSAYALGGLGSGICPNK_"
),
Condition = c("A", "B", "B")
)
column <- 'Modified sequence'
convert_column <- 'Sequence'
converted_data <- strip_sequence_Maxquant(data, column, convert_column)
Run the code above in your browser using DataLab