set.seed(1234)
traj <- traj_sim(100,
copula = cyl_rect_combine(copula::frankCopula(6)),
marginal_circ = list(name= "vonmises", coef=list(0, 2)),
marginal_lin = list(name = "weibull", coef=list(shape=3))
)
plot1 <- plot_joint_box(traj)
plot2 <- plot_joint_box(traj,
marginal_lin=list(name = "weibull", coef=list(shape=3))
)
Run the code above in your browser using DataLab