## Example 1: contour plot of meta Gaussian copula distribution
## with Gaussian margins
tau <- 0.5
fam <- 1
theta <- BiCopTau2Par(fam, tau)
BiCopMetaContour(u1 = NULL, u2 = NULL, bw = 1, size = 100,
levels = c(0.01, 0.05, 0.1, 0.15, 0.2),
family = fam, par = theta, main = "tau = 0.5")
## Example 2: empirical contour plot with standard normal margins
dat <- BiCopSim(N = 1000, fam, theta)
BiCopMetaContour(dat[,1], dat[,2], bw = 2, size = 100,
levels = c(0.01, 0.05, 0.1, 0.15, 0.2),
par = 0, family = "emp", main = "N = 1000")
# empirical contour plot with exponential margins
BiCopMetaContour(dat[,1], dat[,2], bw = 2, size = 100,
levels = c(0.01, 0.05, 0.1, 0.15, 0.2),
par = 0, family = "emp", main = "n = 500",
margins = "exp", margins.par = 1)
Run the code above in your browser using DataLab