analog(x, ...)## S3 method for class 'default':
analog(x, y,
method = c("euclidean", "SQeuclidean", "chord", "SQchord",
"bray", "chi.square", "SQchi.square",
"information", "chi.distance", "manhattan",
"kendall", "gower", "alt.gower", "mixed"),
keep.train = TRUE, ...)
x
is training data
and y
, the test data."analog"
with the following components:y
) and each sample in the modern training set
(x
).keep.train
is TRUE
then a
pairwise dissimilarity matrix for the modern training set.analog
implements analogue matching sensu Flower et
al (1997) and Simpson et al (2005), where the aim is to identify
suitable close analogues from a modern training set for fossil
samples. These results are generally used within ecological
restoration, but the identification of close modern analogues for
fossil samples is also used as a technique for assessing transfer
function reconstructions. analog
is a simple and very general function that generates a
pairwise dissimilarity matrix for the modern training set, and a second
matrix containg the pairwise dissimilarities between each fossil
sample and each sample in the training set. These results can then be
assessed using other functions and to extract the close modern
analogues. See the See Also section below.
Analysis of the pairwise dissimilarity matrix for the modern training
set can be used to help decide on a suitable dissimilarity threshold
for defining close modern analogues. By default this matrix is
returned as part of the output from the analog
function.
Simpson, G.L., Shilland, E.M., Winterbottom, J. M. and Keay, J. (2005) Defining reference conditions for acidified waters using a modern analogue approach. Environmental Pollution 137; 119--133.
distance
for the function that calculates the
dissimilarity matrices.
cma
for extraction of close modern analogues.
dissimilarities
and plot.dissimilarities
for analysis of distribution of pairwise dissimilarity matrix for
modern training set.## continue the 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