## continue the RLGH example from ?join
example(join)
## analog matching between SWAP and RLGH core
swap.analog <- analog(swapdiat, rlgh, method = "chord")
swap.analog
summary(swap.analog)
## compare training set dissimilarities with normals
## and derive cut-offs
swap.dissim <- dissim(swap.analog)
plot(swap.dissim)
Run the code above in your browser using DataLab