clayton.cop <- claytonCopula(2, dim = 3)
## scatterplot3d(rcopula(clayton.cop, 1000))
frank.cop <- frankCopula(3)
persp(frank.cop, dcopula)
gumbel.cop <- archmCopula("gumbel", 5)
contour(gumbel.cop, dcopula)
amh.cop <- amhCopula(0.5)
## A 7-dim Frank copula
frank.cop <- frankCopula(3, dim = 7)
x <- rcopula(frank.cop, 5)
## dcopula doesn't work
dcopula(frank.cop, x)
## A 7-dim Gumbel copula
gumbel.cop <- gumbelCopula(2, dim = 7)
## the expression of the pdf is not available
gumbel.cop@exprdist
## but can still be evaluated
dcopula(gumbel.cop, x)
Run the code above in your browser using DataLab