From 61b72f14f46f66f1faf7b79695a6befe45fdea09 Mon Sep 17 00:00:00 2001 From: Louis Lacoste Date: Wed, 24 Apr 2024 15:59:53 +0200 Subject: [PATCH] U,list ? --- code/simulations/simulations_inference_bernoulli.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/simulations/simulations_inference_bernoulli.R b/code/simulations/simulations_inference_bernoulli.R index dae6dd0..7e37362 100644 --- a/code/simulations/simulations_inference_bernoulli.R +++ b/code/simulations/simulations_inference_bernoulli.R @@ -331,7 +331,7 @@ results <- parallel::mclapply(conditions_rows, function(s) { saveRDS(object = data_frame_output, file = temp_file_save) #  Saving inhabitual data - if (all(pirho_mean_ARIs == 1L) & any(pirho_double_ARIs < 1L)) { + if (all(unlist(pirho_mean_ARIs) == 1L) & any(unlist(pirho_double_ARIs) < 1L)) { warning("Incorrect result encountered, saving.") incorrect_filepath <- file.path(temp_dir, paste0( "incorrect_conditions_", s, "_on_",