footCOP(cop=PSP) # 0.3177662
# footCOP(cop=PSP, by.concordance=TRUE) # 0.3178025
n <- 2000; UV <- simCOP(n=n, cop=GHcop, para=2.3, graphics=FALSE)
footCOP(para=UV, as.sample=TRUE) # 0.5594364 (sample version)
footCOP(cop=GHcop, para=2.3) # 0.5513380 (copula integration)
footCOP(cop=GHcop, para=2.3, by.concordance=TRUE) # 0.5513562 (concordance function)
# where the later issued warnings on the integration
Run the code above in your browser using DataLab