W_N5p12a(0.4, 0.6, para=5)
if (FALSE) {
# Nelsen (2006, exer. 5.12a, p. 172, fig. 5.3a)
UV <- simCOP(1000, cop=W_N5p12a, para=4) # which is the same as
para <- list(cop=c(W, W, W, W), para=NULL, part=c(0,0.25,0.50,0.75,1))
UV <- simCOP(1000, cop=ORDSUMcop, para=para) }
Run the code above in your browser using DataLab