## Clayton 90° copula with parameter 3
cop <- bicop_dist("clayton", 90, 3)
cop
str(cop)
## visualization
plot(cop)
contour(cop)
plot(rbicop(200, cop))
## BB8 copula model for discrete data
cop_disc <- bicop_dist("bb8", 0, c(2, 0.5), var_types = c("d", "d"))
cop_disc
Run the code above in your browser using DataLab