## simulate from a bivariate t-copula
simdata <- BiCopSim(300, 2, -0.7, par2 = 4)
## second derivative of the bivariate t-copula with respect to the first parameter
u1 <- simdata[,1]
u2 <- simdata[,2]
BiCopDeriv2(u1, u2, 2, -0.7, par2 = 4, deriv = "par")
## estimate a bivariate copula from the data and evaluate its derivative
cop <- BiCopEst(u1, u2, family = 2)
BiCopDeriv2(u1, u2, cop, deriv = "par")
Run the code above in your browser using DataLab