# Kod 3.19 Generowanie
C.norm <- ellipCopula(family="normal", dim=3, dispstr = "ex",param = 0.4)
C.clayton <- archmCopula( "clayton", 3, param = 2)
C.frank <- archmCopula( "frank", 3, param = 3 )
C.gumbel <- archmCopula( "gumbel", 3, param = 3)
rCopula(4,C.norm)
rCopula(4,C.clayton)
rCopula(4,C.frank)
rCopula(4,C.gumbel)