Closed sgibb closed 11 years ago
To reproduce:
library("MALDIquant") s <- c(createMassPeaks(1:4, rep(1, 4), metaData=list(name=33)), createMassPeaks(1:4, rep(1, 4), metaData=list(name=33)), createMassPeaks(1:4, rep(1, 4), metaData=list(name=22)), createMassPeaks(1:4, rep(1, 4), metaData=list(name=22)), createMassPeaks(1:4, rep(1, 4), metaData=list(name=34)), createMassPeaks(1:4, rep(1, 4), metaData=list(name=34))) f <- factor(rep(c(33, 22, 34), each=2)) p <- mergeMassPeaks(s, f) sapply(p, function(x)metaData(x)$name) ## order is 22 33 44 instead of 33, 22, 34
To reproduce: