cpTestCn(x, method = c("seq", "nonseq"), b = 1,
weights = c("parzen", "bartlett"), m = 5,
L.method=c("max","median","mean","min"),
N = 1000, init.seq = NULL)"seq" (the 'check' approach
in the first reference) or "nonseq" (the 'hat' approach
in the first ncol(x)) involved in the estimation of the bandwidth
parameter; see Section 5 of the third reference. The number of
points N * (nrow(x) + 2 * (b - 1)) used to generate dependent
multiplier sequences.class htest which is a list,
some of the components of which arenrow(x)-1 intermediate
Cramb. A. B
cpTestRho() for a related test based on
Spearman's rho, cpTestFn() for a related test based
on the multivariate empirical c.d.f., bOptEmpProc() for the
function used to estimate b from x if b = NULL.require(copula)
n <- 100
k <- 50 ## the true change-point
u <- rCopula(k,gumbelCopula(1.5))
v <- rCopula(n-k,gumbelCopula(3))
x <- rbind(u,v)
cp <- cpTestCn(x)
cp
## estimated change-point
which(cp$cvm == max(cp$cvm))Run the code above in your browser using DataLab