set.seed(123)
traj <- traj_sim(n = 5,
copula = cyl_quadsec(0.1),
marginal_circ = list(name="vonmises",coef=list(0, 1)),
marginal_lin = list(name="weibull",coef=list(shape=3))
)
traj_from_coords <- traj_get(traj[,1], traj[,2])
Run the code above in your browser using DataLab