inst/unitTests/runit.specDist.R

In sneumann/xcms-presvnbridge: LC/MS and GC/MS Data Analysis

test.specDist <- function() {
    data(faahko, package="faahKO")
    dist1<-specDist(faahko,which(faahko@peaks[,"sample"]==1),which(faahko@peaks[,"sample"]==2), method="meanMZmatch")
    dist2<-specDist(faahko,which(faahko@peaks[,"sample"]==3),which(faahko@peaks[,"sample"]==4), method="cosine")
    dist3<-specDist(faahko,which(faahko@peaks[,"sample"]==5),which(faahko@peaks[,"sample"]==6), method="peakCount")
    checkEquals(round(dist1,3),3.159)
    checkEquals(round(dist2,3), 3.183)
    checkEquals(dist3, 129)
}