# Kod 3.17 Generowanie losowych wartości z dwu- i trójwymiarowego rozkładu normalnego z wykorzystaniem funkcji rCopula.
library(copula)
library(scatterplot3d)
ro=0.9
norm2.cop <- normalCopula(ro)
norm3.cop <- normalCopula(ro,dim=3)
d2=rCopula(100,norm2.cop)
d3=rCopula(100,norm3.cop)
par(mfrow=c(1,2))
plot(d2,xlab='x',ylab='y')
scatterplot3d(d3,xlab='x',ylab='y',zlab='z')
