
## S3 method for class 'dissimilarities':
plot(x, prob = 0.05,
legend = TRUE, n.rnorm = 1e+05, col = "black",
col.ref = "red", lty = "solid", lty.quant = "dotted",
xlab = NULL, ylab = NULL, main = NULL, sub = NULL, ...)
"dissimilarities"
.dissimilarities
## Imbrie and Kipp example
## load the example data
data(ImbrieKipp)
data(SumSST)
data(V12.122)
## merge training and test set on columns
dat <- join(ImbrieKipp, V12.122, verbose = TRUE)
## extract the merged data sets and convert to proportions
ImbrieKipp <- dat[[1]] / 100
V12.122 <- dat[[2]] / 100
## analog matching between SWAPImbrie & Kipp and V12.122 core
ik.analog <- analog(ImbrieKipp, V12.122, method = "chord")
ik.analog
summary(ik.analog)
## compare training set dissimilarities with normals
## and derive cut-offs
ik.dij <- dissim(ik.analog)
plot(ik.dij)
Run the code above in your browser using DataLab