tsl <- tsl_initialize(
x = distantia::albatross,
name_column = "name",
time_column = "time"
) |>
tsl_transform(
f = f_scale_global
)
df <- momentum_dtw(
tsl = tsl,
distance = "euclidean"
)
#focus on important columns
df[, c(
"x",
"y",
"variable",
"importance",
"effect"
)]
Run the code above in your browser using DataLab