set.seed(123)
# simulate from Clayton copula
cop <- BiCop(3, tau = 0.5)
dat <- BiCopSim(1000, cop)
# create lambda-function plots
op <- par(mfrow = c(1, 3))
BiCopLambda(dat[, 1], dat[, 2]) # empirical lambda-function
BiCopLambda(cop) # theoretical lambda-function
BiCopLambda(dat[, 1], dat[, 2], cop) # both
par(op)
Run the code above in your browser using DataLab