Defining normalCopula and tCopula

> par(mfrow = c(1, 1))
> library(copula)
> set.seed(1)
> myCop.norm <- ellipCopula(family = "normal", dim = 2, dispstr = "ex",
+     param = 0.4)
> u <- rcopula(myCop.norm, 2000)
> scatterplot3d(u, pch = 19, color = "blue")