# NOT RUN {
## Do these data come from an extreme-value copula?
set.seed(63)
uG <- rCopula(100, gumbelCopula (3))
uC <- rCopula(100, claytonCopula(3))
# }
# NOT RUN {
## these two take 21 sec on nb-mm4 (Intel Core i7-5600U @ 2.60GHz):
evTestA(uG)
evTestA(uC) # significant even though Clayton is *NOT* an extreme value copula
# }
# NOT RUN {
## These are fast:
evTestA(uG, derivatives = "Cn")
evTestA(uC, derivatives = "Cn") # small p-value even though Clayton is *NOT* an EV copula.
# }
# NOT RUN {
<!-- %dont -->
# }
Run the code above in your browser using DataLab