polarolouis/mia-stage-2024
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fixing forgotten filepath

Browse source
This commit is contained in:
Louis Lacoste 2024-06-12 11:03:12 +02:00
parent db40ee87e5
commit 744d404bb4
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
code/analysis/investigating/impact_of_vem_max_steps.R
View file

@ -102,6 +102,10 @@ true_clustering <- c(rep(1, M), rep(2, M), rep(3, M))
begin_time <- format(Sys.time(), "%s")
tmp_folder <- file.path(base_folder, paste0("tmp", begin_time))
if (!dir.exists(tmp_folder)) {
dir.create(tmp_folder, recursive = TRUE)
}
results <- lapply(seq_len(nrow(conditions)), function(idx) {
current_seed <- conditions[["seeds"]][idx]
eps <- conditions[["epsilons"]][idx]
@ -167,4 +171,3 @@ results <- lapply(seq_len(nrow(conditions)), function(idx) {
to_save <- do.call(rbind, results)
filename_to_save <- paste0("impact_vem_", begin_time, ".Rds")
saveRDS(to_save, file = file.path(base_folder, filename_to_save))