tests/sim/20210919-sim/gen.R

In jlivsey/Dvar: What the Package Does (One Line, Title Case)

source("util.R")

# ---- Begin config -----
# Levels of simulation will be defined here
sim_levels <- 0:10 # This should match marPack##.RData files
N_sim <- 1
eps   <- 1
geoMod = c(.1, .3, .6)
queryMod = c(.6, .1, .2, .1)
# ---- End config -----

for(idx_sim in seq_along(sim_levels)){

  simNum <- sim_levels[idx_sim]

  # Create a name for this level of the simulation
  simResultsName = sprintf("results%d.RData", simNum)

  # Generate launch script and save
  #Sim6Way = function(Nrep, intab, eps, marPack, geoMod, queryMod, W = NULL) {
  ff = sprintf("launch%d.R", simNum)
  script = paste(sep = "\n",
                 "library(L1pack)",
                 sprintf("simResultsName = \"%s\"", simResultsName),
                 sprintf("load(\"marPack%d.RData\")\n", simNum),
                 "load(\"true-table.Rdata\")\n",
                 sprintf("Nrep = %d", N_sim),
                 sprintf("eps = %g", eps),
                 sprintf("geoMod = %s", print_vector(geoMod)),
                 sprintf("queryMod = %s", print_vector(queryMod)),
                 "",
                 "source(\"sim.R\")\n"
  )
  cat(script, file = ff)
}