Nonparametric test of equality between two copulas
Description
This function performs the nonparametric test of equality between two copulas proposed by Remillard and Scaillet (2009). The test is based on the CramervonMises statistic between the two empirical copulas. An approximate pvalue is returned.
Usage
1 
Arguments
x 

y 

Nsim 
Number of iterations used in the approximation of the pvalue. 
paired 

alpha 
Level of the calculated VaR. Default is 0.95. 
Details
Details of the method can be found in Remillard and Scaillet (2009).
Value
A list of the following objects:
cvm 
Value of the Cramervon Mises test statistic. 
pvalue 
pvalue based on the multiplier Monte Carlo method
with 
cvmsim 
Simulated values of the Cramervon Mises statistic. 
VaR 

Author(s)
Bruno Remillard and JeanFrancois Plante
References
Remillard, B. & Scaillet, O. (2009) Testing for equality between two copulas. Journal of Multivariate Analysis, 100, 377386.
Examples
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15  # Simulating a bivariate normal (copula = independence)
X=matrix(rnorm(100),ncol=2)
# Simulating a bivriate exponential distribution with a Clayton copula
v=runif(50)
theta=1
x<1/(1/runif(50)/v^(theta+1))^(1/(theta+1))
u<(x^(theta)v^(theta)+1)^(1/theta)
Y=cbind(log(1u),log(1v))
# Testing equality of the copulas
TwoCop(X,Y)$pvalue
