## 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
## reconstruct for the RLGH core data
rlgh.mat <- predict(swap.mat, rlgh, k = 10)
## extract the minimum DC values
rlgh.mdc <- minDC(rlgh.mat)
rlgh.mdc
## draw a plot of minimum DC by time
plot(rlgh.mdc, use.labels = TRUE, xlab = "Depth (cm.)")
Run the code above in your browser using DataLab