Kod 3.18 - NMSwBE

# Kod 3.18. Generowanie z różnych funkcji łączących

library(copula)

par(mfrow=c(2,3))

n=1000

u <- rCopula(n, normalCopula(0.9, dim = 2))

plot(u,main='Normal')

u <- rCopula(n, fgmCopula(.99, dim = 2))

plot(u,main='FGM')

u <- rCopula(n, tCopula(.9, dim = 2))

plot(u,main='t')

u <- rCopula(n, frankCopula(9, dim = 2))

plot(u,main='Frank')

u <- rCopula(n, gumbelCopula(9, dim = 2))

plot(u,main='Gumbel')

u <- rCopula(n, claytonCopula(9, dim = 2))

plot(u,main='Clayton')