if (FALSE) {
## 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)
}
Run the code above in your browser using DataLab