## Not run: N <- 100; apar <- exp(2)
# xx <- seq(-0.30, 1.30, len = N)
# ox <- expand.grid(xx, xx)
# zedd <- dbifrankcop(ox[, 1], ox[, 2], apar = apar)
# contour(xx, xx, matrix(zedd, N, N))
# zedd <- pbifrankcop(ox[, 1], ox[, 2], apar = apar)
# contour(xx, xx, matrix(zedd, N, N))
#
# plot(rr <- rbifrankcop(n = 3000, apar = exp(4)))
# par(mfrow = c(1, 2))
# hist(rr[, 1]); hist(rr[, 2]) # Should be uniform
# ## End(Not run)
Run the code above in your browser using DataLab