library(copula)
persp(BB8Copula(c(2,0.9)), dCopula, zlim = c(0,10))
persp(surBB8Copula(c(2,0.9)), dCopula, zlim = c(0,10))
persp(r90BB8Copula(c(-2,-0.9)), dCopula, zlim = c(0,10))
persp(r270BB8Copula(c(-2,-0.9)), dCopula, zlim = c(0,10))
Run the code above in your browser using DataLab