x1 <- c(1,1,1,1)
x2 <- c(1.1,1.2,1.3,1.4)
x3 <- c(1,1,1,1)
x4 <- c(2,2,2,2)
rowNames <- c('PC(14:0/14:1)+AcO_1','PC(14:0/14:1)+AcO_2','PC(16:0/16:1)_1','PC(16:0/16:1)_2')
ExampleData <- data.frame(x1,x2,x3,x4, row.names =rowNames)
replicate.delete(ExampleData,delete.pattern= c('_\\d','(\\+)AcO'))
Run the code above in your browser using DataLab