## continue the RLGH and SWAP example from ?join
example(join)
## analog matching between SWAP and RLGH core
swap.analog <- analog(swapdiat, rlgh, method = "chord")
swap.analog
summary(swap.analog)
## close modern analogues
swap.cma <- cma(swap.analog)
## plot the results
## many samples so reduce the label and point size
plot(swap.cma, cex.axis = 0.6, cex = 0.6)
Run the code above in your browser using DataLab