#generate two time series list to join
tsl_a <- tsl_simulate(
n = 2,
cols = 2,
irregular = TRUE,
seed = 1
)
#needs renaming
tsl_b <- tsl_simulate(
n = 3,
cols = 2,
irregular = TRUE,
seed = 2
) |>
tsl_colnames_set(
names = c("c", "d")
)
#join
tsl <- tsl_join(
tsl_a,
tsl_b
)
#plot result
if(interactive()){
tsl_plot(
tsl = tsl
)
}
Run the code above in your browser using DataLab