## construct BiCop object for a Tawn copula
obj <- BiCop(family = 104, par = 2.5, par2 = 0.4)
## plots
plot(obj) # (marginal normal) contour plot
plot(obj, margins = "unif") # contour plot of actual copula density
plot(obj, type = "surf") # surface plot of actual copula densityu
Run the code above in your browser using DataLab