mvnorm.kur.test(X, method = "integration", n.simu = 1000, na.action = na.fail)method=simulation' this specifies the number of replications in the simulation. cov4).
The limiting distribution of the test statistic W is a linear combination of independent chi-square variables with different degrees of freedom.
Exact limiting p-values or approximated p-values are obtained by using the function pchisqsum. However Kankainen et al.
mention that even for n = 200 the convergence can be poor, therefore also p-values simulated under the NULL can be obtained.
Note that the test statistic used is a symmetric version of the one in the paper to guarantee affine invariance.
mvnorm.skew.test X<-rmvnorm(100, c(2, 4, 5))
mvnorm.kur.test(X)
mvnorm.kur.test(X, method = "satt")
mvnorm.kur.test(X, method = "simu")
Run the code above in your browser using DataLab