inst/scripts/compile_dkpar.R

In jirehhuang/bcb: Bayesian Causal Bandits

######################################################################
## Compile dkpar results
######################################################################


library(bcb)
network <- "dkpar_3_6_3"
path0 <- ifelse(get_projects_dir(envir = environment()) == getwd(),
                projects_dir, file.path(projects_dir, "current",
                                        "simulations", network))
n_cores <- 1
debug <- 1
start_time <- Sys.time()


## Discrete and Gaussian

for (x in c("d", "g")){

  path <- file.path(path0, sprintf("%s-%s", network, x))

  compile_path(path = path,
               concise = 2,
               n_cores = n_cores,
               debug = debug)

  compiled2results(path = path,
                   concise = 2,
                   format = 2,
                   as_df = TRUE,
                   n_cores = n_cores,
                   debug = debug)
}


## Execution time
time <- prettyunits::pretty_sec(as.numeric(Sys.time() - start_time,
                                           unit = "secs"))
debug_cli_sprintf(TRUE, "",
                  "executed in {time}")