diff --git a/modelling V4.R b/modelling V4.R
index bf6a6b8..7fbc4db 100644
--- a/modelling V4.R	
+++ b/modelling V4.R	
@@ -640,13 +640,15 @@ source("load_data.R")
 
 # Estimation de tous les modèles
 # all_results <- fit_all_participants_all_models(data)
-fit_all_participants_all_models(data %>% filter(participant_id == "qfmtmjjy"))
+# fit_all_participants_all_models(data %>% filter(participant_id == "qfmtmjjy"))
 # Ou seulement certains modèles
-# all_results <- fit_all_participants_all_models(
-#   data,
-#   models_to_fit = c("HOMOGENEOUS", "GAIN_LOSS", "REE_BIASED_SIMPLE",
-#                     "REE_LEARNING_SIMPLE", "REE_LEARNING_BIASED_SIMPLE")
-# )
+all_results <- fit_all_participants_all_models(
+  data,
+  models_to_fit = c(
+    "HOMOGENEOUS", "GAIN_LOSS", "REE_BIASED_SIMPLE",
+    "REE_LEARNING_SIMPLE", "REE_LEARNING_BIASED_SIMPLE"
+  )
+)
 
 # Comparaison
 # comparison <- compare_nested_models(all_results)