set <- level.setCOP(cop=PSP, getlevel=0.23, delu=0.01) # then continue on with the ## Not Run:
level.curvesCOP(cop=PSP) # The previously used delu=0.01 is for --timings, use delu=0.001
lines(set$U, set$V, col=2, lwd=2) # manually draw the 23rd percentile
set <- level.setCOP(cop=PSP, para=3.1, getlevel=0.67, lines=TRUE, col=4, lwd=4)
# Notice the change in the lines argument and using levelsetCOP2 to draw.
mtext("Level Curves and Special Level Sets for PSP copula")
Run the code above in your browser using DataLab