#prepare time series list
tsl <- tsl_simulate(
n = 2,
independent = TRUE
)
#distance matrix between time series
dm <- psi_distance_matrix(
x = tsl[[1]],
y = tsl[[2]]
)
if(interactive()){
utils_matrix_guide(m = dm)
}
Run the code above in your browser using DataLab