cop <- cyl_rot_combine(copula = copula::frankCopula(param = 3), shift = TRUE)
if(interactive()){
plot_cop_surf(copula = cop, type = "pdf", plot_type = "ggplot", resolution = 20)
}
cop <- cyl_rot_combine(copula = copula::claytonCopula(param = 10), shift = FALSE)
if(interactive()){
plot_cop_surf(copula = cop, type = "pdf", plot_type = "ggplot", resolution = 20)
}
Run the code above in your browser using DataLab