#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
)
}
#lock-step dissimilarity analysis
df_ls <- distantia_ls(
tsl = tsl,
distance = "euclidean"
)
df_ls
Run the code above in your browser using DataLab