if (FALSE) {
## continue the RLGH example from ?join
example(join)
## fit the MAT model using the squared chord distance measure
swap.mat <- mat(swapdiat, swappH, method = "SQchord")
swap.mat
## model summary
summary(swap.mat)
## model summary - evaluating models using k = 1, ..., 20
## analogues instead of the default, 10.
summary(swap.mat, k = 20)
}
Run the code above in your browser using DataLab