#distance metric
d <- "euclidean"
#simulate two time series
#of the same length
x <- zoo_simulate(
name = "x",
rows = 100,
seasons = 2,
seed = 1
)
y <- zoo_simulate(
name = "y",
rows = 100,
seasons = 2,
seed = 2
)
if(interactive()){
zoo_plot(x = x)
zoo_plot(x = y)
}
#sum of distances
#between pairs of samples
psi_distance_lock_step(
x = x,
y = y,
distance = d
)
Run the code above in your browser using DataLab