From ff0e27eb69105199322dc2212fcb29bd2b633294 Mon Sep 17 00:00:00 2001 From: Louis Date: Sun, 1 Feb 2026 19:28:32 +0100 Subject: [PATCH] LBMSEQ benchmark : Changing data and save path --- benchmark_lbm_seq.R | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/benchmark_lbm_seq.R b/benchmark_lbm_seq.R index d7e54eb..4d3bd8f 100644 --- a/benchmark_lbm_seq.R +++ b/benchmark_lbm_seq.R @@ -17,12 +17,15 @@ options(parallelly.availableCores.custom = function() { max(1L, nb_cores) }) -data_folder <- here("results", "lbm-seq") +result_folder <- here("results", "lbm-seq") -the_data <- import_biom("data/mach/kinetic.biom") +# the_data <- import_biom("data/mach/kinetic.biom") +the_data <- import_biom("data/chaillou/chaillou.biom") +data_name <- "chaillou" epoch <- as.integer(Sys.time()) -tmp_folder <- here(data_folder, paste0("tmp", epoch)) +tmp_folder <- here(result_folder, data_name, paste0("tmp", epoch)) +named_data_folder <- here(result_folder, data_name) if (!dir.exists(tmp_folder)) { dir.create(tmp_folder, recursive = TRUE) @@ -66,7 +69,7 @@ switch(mode, ) ) - saveRDS(out_seq, here(tmp_folder, "seq.Rds")) + saveRDS(out_seq, here(named_data_folder, "seq.Rds")) }, "para" = { message("Will use PARA") @@ -101,7 +104,7 @@ switch(mode, Rank5 = r5_model_para ) ) - saveRDS(out_para, here(tmp_folder, "para.Rds")) + saveRDS(out_para, here(named_data_folder, "para.Rds")) }, "notrans" = { # No transfer message("Will use NO TRANSFER") @@ -155,7 +158,7 @@ switch(mode, Rank5 = r5_model_notrans ) ) - saveRDS(out_notrans, here(tmp_folder, "notrans.Rds")) + saveRDS(out_notrans, here(named_data_folder, "notrans.Rds")) }, stop("Nothing selected, exiting") )