## Do the data come from an extreme-value copula?
evTest(rcopula(gumbelCopula(3), 200))
evTest(rcopula(claytonCopula(3), 200))
## A three-dimensional example
evTest(rcopula(gumbelCopula(3, dim=3), 200))
evTest(rcopula(claytonCopula(3, dim=3), 200))
Run the code above in your browser using DataLab