cop <- cyl_vonmises(mu=pi, kappa=10, flip = TRUE)
if(interactive()){
plot_cop_surf(copula = cop, type = "pdf", plot_type = "ggplot", resolution = 20)
}
cop <- cyl_vonmises(mu=0, kappa=8, flip = FALSE)
if(interactive()){
plot_cop_surf(copula = cop, type = "pdf", plot_type = "ggplot", resolution = 20)
}
Run the code above in your browser using DataLab