Become an expert in R — Interactive courses, Cheat Sheets, certificates and more!
Get Started for Free

stat_de

Compute the Darling-Erdös Statistic


Description

This function computes the Darling-Erdös statistic.

Usage

stat_de(dat, a = log, b = log, estimate = FALSE,
  use_kernel_var = FALSE, custom_var = NULL, kernel = "ba",
  bandwidth = "and", get_all_vals = FALSE)

Arguments

dat

The data vector

a

The function that will be composed with l(x) = (2 \log x)^{1/2}

b

The function that will be composed with u(x) = 2 \log x + \frac{1}{2} \log \log x - \frac{1}{2} \log π

estimate

Set to TRUE to return the estimated location of the change point

use_kernel_var

Set to TRUE to use kernel methods for long-run variance estimation (typically used when the data is believed to be correlated); if FALSE, then the long-run variance is estimated using \hat{σ}^2_{T,t} = T^{-1}≤ft( ∑_{s = 1}^t ≤ft(X_s - \bar{X}_t\right)^2 + ∑_{s = t + 1}^{T}≤ft(X_s - \tilde{X}_{T - t}\right)^2\right), where \bar{X}_t = t^{-1}∑_{s = 1}^t X_s and \tilde{X}_{T - t} = (T - t)^{-1} ∑_{s = t + 1}^{T} X_s

custom_var

Can be a vector the same length as dat consisting of variance-like numbers at each potential change point (so each entry of the vector would be the "best estimate" of the long-run variance if that location were where the change point occured) or a function taking two parameters x and k that can be used to generate this vector, with x representing the data vector and k the position of a potential change point; if NULL, this argument is ignored

kernel

If character, the identifier of the kernel function as used in cointReg (see getLongRunVar); if function, the kernel function to be used for long-run variance estimation (default is the Bartlett kernel in cointReg)

bandwidth

If character, the identifier for how to compute the bandwidth as defined in cointReg (see getBandwidth); if function, a function to use for computing the bandwidth; if numeric, the bandwidth value to use (the default is to use Andrews' method, as used in cointReg)

get_all_vals

If TRUE, return all values for the statistic at every tested point in the data set

Details

If \bar{A}_T(τ, t_T) is the weighted and trimmed CUSUM statistic with weighting parameter τ and trimming parameter t_T (see stat_Vn), then the Darling-Erdös statistic is

l(a_T) \bar{A}_T(1/2, 1) - u(b_T)

with l(x) = √{2 \log x} and u(x) = 2 \log x + \frac{1}{2} \log \log x - \frac{1}{2} \log π (\log x is the natural logarithm of x). The parameter a corresponds to a_T and b to b_T; these are both log by default.

See (Rice et al. ) to learn more.

Value

If both estimate and get_all_vals are FALSE, the value of the test statistic; otherwise, a list that contains the test statistic and the other values requested (if both are TRUE, the test statistic is in the first position and the estimated changg point in the second)

References

Rice G, Miller C, Horváth L (????). “A new class of change point test of Rényi type.” in-press.

Examples

CPAT:::stat_de(rnorm(1000))
CPAT:::stat_de(rnorm(1000), use_kernel_var = TRUE, bandwidth = "nw", kernel = "bo")

CPAT

Change Point Analysis Tests

v0.1.0
MIT + file LICENSE
Authors
Curtis Miller [aut, cre]
Initial release
2018-12-06

We don't support your browser anymore

Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.