## simulate from a bivariate Clayton
simdata <- BiCopSim(300, 3, 3.4)
## evaluate the distribution function of the bivariate Clayton copula
u1 <- simdata[,1]
u2 <- simdata[,2]
BiCopCDF(u1, u2, 3, 3.4)
## estimate a bivariate copula from the data and evaluate its CDF
cop <- BiCopSelect(u1, u2)
BiCopCDF(u1, u2, cop)
Run the code above in your browser using DataLab