# NOT RUN {
level.curvesCOP(cop=M, para=NULL, delt=.02) # Upper bounds copula
# }
# NOT RUN {
D <- level.curvesCOP(cop=P, getlevel=0.56)
str(D) # empty
D <- level.curvesCOP(cop=P, getlevel=0.5)
str(D) # contains stuff
D <- level.curvesCOP(cop=PSP, getlevel=0.8)
str(D) # contains stuff
# }
Run the code above in your browser using DataLab