#load fagus_dynamics as tsl
#global centering and scaling
tsl <- tsl_initialize(
x = fagus_dynamics,
name_column = "name",
time_column = "time"
) |>
tsl_transform(
f = f_scale_global
)
if(interactive()){
tsl_plot(
tsl = tsl,
guide_columns = 3
)
}
#dynamic time warping dissimilarity analysis
df_dtw <- distantia_dtw(
tsl = tsl,
distance = "euclidean"
)
df_dtw[, c("x", "y", "psi")]
#visualize dynamic time warping
if(interactive()){
distantia_dtw_plot(
tsl = tsl[c("Spain", "Sweden")],
distance = "euclidean"
)
}
Run the code above in your browser using DataLab