inst/unitTests/test_psDist.R

In sneumann/CAMERA: Collection of annotation related methods for mass spectrometry data

test.psDist <- function() {
 file <- system.file('mzML/MM14.mzML', package = "CAMERA")
 xs   <- xcmsSet(file, method="centWave", ppm=30, peakwidth=c(5,10))
 an   <- xsAnnotate(xs)
 an   <- groupFWHM(an)
 checkEqualsNumeric(CAMERA:::psDist(an,an,PSpec1=10,PSpec2=10, method="cosine", nPmin=1),0.75)
 checkEqualsNumeric(CAMERA:::psDist(an,an,PSpec1=10,PSpec2=10, method="meanMZmatch"),1)
 }