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
# 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)