Split Dissimilarity Analysis Data Frames by Combinations of Arguments

Internal function to split a distantia data frame by groups of the arguments 'distance', 'diagonal', and 'lock_step'.

Usage

utils_distantia_df_split(df = NULL)

Arguments

df

(required, data frame) Output of distantia() or distantia_aggregate(). Default: NULL

Value

list

See also

Other internal: utils_boxplot_common(), utils_check_args_distantia(), utils_check_args_matrix(), utils_check_args_momentum(), utils_check_args_path(), utils_check_args_tsl(), utils_check_args_zoo(), utils_check_distance_args(), utils_check_list_class(), utils_clean_names(), utils_digits(), utils_prepare_df(), utils_prepare_matrix(), utils_prepare_matrix_list(), utils_prepare_time(), utils_prepare_vector_list(), utils_prepare_zoo_list(), utils_tsl_pairs()

Examples

#three time series
#climate and ndvi in Fagus sylvatica stands in Spain, Germany, and Sweden
tsl <- tsl_initialize(
  x = fagus_dynamics,
  name_column = "name",
  time_column = "time"
)

#dissimilarity analysis with four combinations of parameters
df <- distantia(
  tsl = tsl,
  distance = c(
    "euclidean",
    "manhattan"
    ),
  lock_step = c(
    TRUE,
    FALSE
  )
)

#split by combinations of parameters
df_split <- utils_distantia_df_split(
  df = df
)

#print output
df_split
#> $`1`
#>    distance diagonal lock_step       x      y bandwidth       psi group
#> 4 euclidean     TRUE     FALSE Germany Sweden         1 0.6690893     1
#> 5 euclidean     TRUE     FALSE Germany  Spain         1 0.9174141     1
#> 6 euclidean     TRUE     FALSE   Spain Sweden         1 0.8673070     1
#> 
#> $`2`
#>     distance diagonal lock_step       x      y bandwidth       psi group
#> 10 manhattan     TRUE     FALSE   Spain Sweden         1 0.9630803     2
#> 11 manhattan     TRUE     FALSE Germany  Spain         1 1.0138670     2
#> 12 manhattan     TRUE     FALSE Germany Sweden         1 0.7067959     2
#> 
#> $`3`
#>    distance diagonal lock_step       x      y bandwidth       psi group
#> 7 manhattan       NA      TRUE Germany Sweden        NA 0.8271986     3
#> 8 manhattan       NA      TRUE   Spain Sweden        NA 1.5755002     3
#> 9 manhattan       NA      TRUE Germany  Spain        NA 1.3737381     3
#> 
#> $`4`
#>    distance diagonal lock_step       x      y bandwidth       psi group
#> 1 euclidean       NA      TRUE Germany  Spain        NA 1.3962157     4
#> 2 euclidean       NA      TRUE   Spain Sweden        NA 1.5703931     4
#> 3 euclidean       NA      TRUE Germany Sweden        NA 0.8364653     4
#> 

#class and length of the output
class(df_split)
#> [1] "list"
length(df_split)
#> [1] 4