ccf.series.rwl(rwl, series, series.yrs = as.numeric(names(series)),
seg.length = 50, bin.floor = 100, n = NULL,
prewhiten = TRUE, biweight = TRUE, pcrit = 0.05,
lag.max = 5, make.plot = TRUE,
floor.plus1 = FALSE, ...)
data.frame
with series as columns and years as rows
such as that produced by read.rwl
.numeric
vector. Usually a tree-ring series.numeric
vector giving the years of
series
. Defaults to
as.numeric(names(series))
.NULL
or an integral value giving the filter length for the
hanning
filter used for removal of low frequency
variation.logical
flag. If TRUE
each series is
whitened using ar
.logical
flag. If TRUE
then a robust
mean is calculated using tbrm
.ccf
.logical
flag indicating whether to make a
plot.logical
flag. If TRUE
, one year is
added to the base location of the first segment (e.g., 1601, 1701,
1801 AD).list
containing matrices ccf
and
bins
. Matrix ccf
contains the correlations
between the series and the master chronology at the lags window given
by lag.max
. Matrix bins
contains the years
encapsulated by each bin.rwl
looking at correlations lagged positively and negatively using
ccf
at overlapping segments set by
seg.length
. For instance, with lag.max
set
to 5, cross-correlations would be calculated at for each segment with
the master lagged at k = -5:5
years. The function is
typically invoked to produce a plot.
Correlations are calculated for the first segment, then the
second segment and so on. Correlations are only calculated for segments with
complete overlap with the master chronology.
Each series (including those in the rwl
object) is
optionally detrended as the residuals from a hanning
filter with weight n
. The filter is not applied if
n
is NULL
. Detrending can also be done via
prewhitening where the residuals of an ar
model are
added to each series mean. This is the default. The master chronology
is computed as the mean of the rwl
object using
tbrm
if biweight
is TRUE
and
rowMeans
if not. Note that detrending typically changes the
length of the series. E.g., a hanning
filter will
shorten the series on either end by floor(n/2)
. The
prewhitening default will change the series length based on the
ar
model fit. The effects of detrending can be seen with
series.rwl.plot
.corr.rwl.seg
, corr.series.seg
,
skel.plot
, series.rwl.plot
data(co021)
dat <- co021
## Create a missing ring by deleting a year of growth in a random series
flagged <- dat$"641143"
flagged <- c(NA, flagged[-325])
names(flagged) <- rownames(dat)
dat$"641143" <- NULL
ccf.100 <- ccf.series.rwl(rwl = dat, series = flagged, seg.length = 100)
Run the code above in your browser using DataLab