set <- level.setCOP(cop=PSP, getlevel=0.23) # then continue on with the ## Not Run:
level.curvesCOP(cop=PSP, delu=0.01) # 0.01 for R CMD check --timings speed
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