contour(frankCopula(-0.8), dcopula)
contour(claytonCopula(2), pcopula)
x <- mvdc(gumbelCopula(3), c("norm", "norm"),
list(list(mean = 0, sd =1), list(mean = 1)))
contour(x, dmvdc, xlim=c(-2, 2), ylim=c(-1, 3))
contour(x, pmvdc, xlim=c(-2, 2), ylim=c(-1, 3))
Run the code above in your browser using DataLab