serialIndepTest
) for multivariate time
series. The main difference comes from the fact that critical values
and p-values are obtainted through the bootstrap/permutation
methodology, since, here, test statistics are not distribution-free.multSerialIndepTest(x, lag.max, m=lag.max+1, N=1000, alpha=0.05,
print.every = 100)
m << lag.max+1
especially when lag.max
is large."print.every"
iterations. No progress is printed if it is nonpositive."multSerialIndepTest"
returns an object of class
"indepTest"
whose attributes are: subsets
,
statistics
, critical.values
, pvalues
,
fisher.pvalue
(a p-value resulting from a combination � la
Fisher of the subset statistic p-values), tippett.pvalue
(a p-value
resulting from a combination � la Tippett of the subset statistic p-values), alpha
(global significance level of the test), beta
(1 - beta
is the significance level per statistic),
global.statistic
(value of the global Cram�r-von Mises
statistic derived directly from
the independence empirical copula process - see In
in the last reference) and
global.statistic.pvalue
(corresponding p-value).serialIndepTest
,
indepTest
,
multIndepTest
,
dependogram
## A multivariate time series
d <- 2
n <- 100
param <- 0.25
ar <- matrix(0,2*n,d)
ar[1,] <- rnorm(d)
for (i in 2:(2*n))
ar[i,] <- matrix(param,d,d) %*% ar[i-1,] + rnorm(d)
x <- ar[(n+1):(2*n),]
## Run the test
test <- multSerialIndepTest(x,3)
test
## Display the dependogram
dependogram(test,print=TRUE)
Run the code above in your browser using DataLab