This commit is contained in:
Louis Lacoste 2024-04-24 15:59:53 +02:00
parent 653cbc107c
commit 61b72f14f4

View file

@ -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_",