## simulate from a bivariate t-copula
simdata <- BiCopSim(300, 2, -0.7, par2 = 4)
## evaluate the density of the bivariate t-copula
u1 <- simdata[,1]
u2 <- simdata[,2]
BiCopPDF(u1, u2, 2, -0.7, par2 = 4)
## estimate a bivariate copula from the data and evaluate its PDF
cop <- BiCopSelect(u1, u2)
round(BiCopPDF(u1, u2, cop), 8)
Run the code above in your browser using DataLab