df_bin_centroids <- s_curve_obj$s_curve_umap_model_obj$df_bin_centroids
df_bin <- s_curve_obj$s_curve_umap_model_obj$df_bin
model_error <- augment(model_2d = df_bin_centroids, model_highd = df_bin,
highd_data = s_curve_noise_training)
df_exe <- comb_all_data_model_error(highd_data = s_curve_noise_training,
nldr_data = s_curve_obj$s_curve_umap_scaled_obj$scaled_nldr,
model_highd = df_bin, model_2d = df_bin_centroids, error_df = model_error)
edge_data <- s_curve_obj$s_curve_umap_model_tr_from_to_df
