From e5248f90f4d7df504df499e7ebc34f0db8a04651 Mon Sep 17 00:00:00 2001 From: Louis Date: Sun, 7 Dec 2025 11:39:04 +0100 Subject: [PATCH] Trying all results --- modelling V4.R | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) 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)