# simulate from a bivariate t-copula
simdata <- BiCopSim(300, 2, -0.7, par2 = 4)
# derivative of the conditional bivariate t-copula
# with respect to the first parameter
u1 <- simdata[,1]
u2 <- simdata[,2]
BiCopHfuncDeriv(u1, u2, 2, -0.7, par2 = 4, deriv = "par")Run the code above in your browser using DataLab