# NOT RUN {
Z <- c(0,0.25,0.50,0.75,1) # Joint probabilities of a N412cop
kfuncCOPinv(kfuncCOP(Z, cop=N4212cop, para=4.3), cop=N4212cop, para=4.3)
# [1] 0.0000000 0.2499984 0.5000224 0.7500112 1.0000000
# }
Run the code above in your browser using DataLab