Trying all results

This commit is contained in:
Louis 2025-12-07 11:39:04 +01:00
parent 4605f0408d
commit e5248f90f4

View file

@ -640,13 +640,15 @@ source("load_data.R")
# Estimation de tous les modèles # Estimation de tous les modèles
# all_results <- fit_all_participants_all_models(data) # 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 # Ou seulement certains modèles
# all_results <- fit_all_participants_all_models( all_results <- fit_all_participants_all_models(
# data, data,
# models_to_fit = c("HOMOGENEOUS", "GAIN_LOSS", "REE_BIASED_SIMPLE", models_to_fit = c(
# "REE_LEARNING_SIMPLE", "REE_LEARNING_BIASED_SIMPLE") "HOMOGENEOUS", "GAIN_LOSS", "REE_BIASED_SIMPLE",
# ) "REE_LEARNING_SIMPLE", "REE_LEARNING_BIASED_SIMPLE"
)
)
# Comparaison # Comparaison
# comparison <- compare_nested_models(all_results) # comparison <- compare_nested_models(all_results)