polarolouis/human-microbiome-compendium
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

LBMSEQ benchmark : Changing data and save path

Browse source
This commit is contained in:
Louis 2026-02-01 19:28:32 +01:00
parent 40e1b9386c
commit ff0e27eb69
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
benchmark_lbm_seq.R
View file

@ -17,12 +17,15 @@ options(parallelly.availableCores.custom = function() {
max(1L, nb_cores) 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()) 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)) { if (!dir.exists(tmp_folder)) {
dir.create(tmp_folder, recursive = TRUE) 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" = { "para" = {
message("Will use PARA") message("Will use PARA")
@ -101,7 +104,7 @@ switch(mode,
Rank5 = r5_model_para Rank5 = r5_model_para
) )
) )
saveRDS(out_para, here(tmp_folder, "para.Rds")) saveRDS(out_para, here(named_data_folder, "para.Rds"))
}, },
"notrans" = { # No transfer "notrans" = { # No transfer
message("Will use NO TRANSFER") message("Will use NO TRANSFER")
@ -155,7 +158,7 @@ switch(mode,
Rank5 = r5_model_notrans 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") stop("Nothing selected, exiting")
) )