library(copula)
persp(tawnT1Copula(),dCopula, zlim=c(0,10))
persp(surTawnT1Copula(),dCopula, zlim=c(0,10))
persp(r90TawnT1Copula(),dCopula, zlim=c(0,10))
persp(r270TawnT1Copula(),dCopula, zlim=c(0,10))
Run the code above in your browser using DataLab