# NOT RUN {
# Using the Baltic Sea demo data
scores_tbl <- scoring(trend_tbl = model_trend_ex,
mod_tbl = all_results_ex, press_type = press_type_ex)
scores_mat <- summary_sc(scores_tbl)$scores_matrix
dist_matrix <- dist_sc(scores_mat, method_dist = "euclidean")
clust_analysis <- clust_sc(dist_matrix, method_clust = "complete")
# }
Run the code above in your browser using DataLab