## a bivariate example
fgm.cop <- fgmCopula(1)
x <-rcopula(fgm.cop, 1000)
cor(x,method="kendall")
kendallsTau(fgm.cop)
cor(x,method="spearman")
spearmansRho(fgm.cop)
persp(fgm.cop, dcopula)
contour(fgm.cop, dcopula)
## a trivariate example with wrong parameter values
## fgm2.cop <- fgmCopula(c(1,1,1,1), dim=3)
## a trivariate example with satisfactory parameter values
fgm2.cop <- fgmCopula(c(.2,-1,-0.3,1), dim=3)
fgm2.cop
Run the code above in your browser using DataLab