set.seed(123)
traj <- traj_sim(50,
copula = cyl_quadsec(0.1),
marginal_circ = list(name = "vonmises", coef = list(0, 1)),
marginal_lin = list(name = "weibull", coef = list(shape = 3))
)
plot1 <- plot_track(traj=traj)
x_coord <- list(runif(10),runif(20),runif(3))
y_coord <- list(runif(10),runif(20),runif(3))
plot2 <- plot_track(x_coord=x_coord, y_coord=y_coord)
Run the code above in your browser using DataLab