Add batch submitting of all hddm jobs

Signed-off-by: Liang Zhang <psychelzh@outlook.com>
psychelzh · Apr 24, 2024 · 82037b5 · 82037b5
1 parent cbb95df
commit 82037b5
Show file tree

Hide file tree

Showing 24 changed files with 144 additions and 971 deletions.
diff --git a/_scripts_hddm/compile_models.R b/_scripts_hddm/compile_models.R
@@ -82,7 +82,7 @@ brm(
   ),
   family = family,
   prior = prior,
-  file = "data/model_diff_once",
+  file = "data/model_diff_camp",
   chains = 0
 )
 ## simple intercept models
@@ -103,6 +103,6 @@ brm(
   ),
   family = family,
   prior = prior,
-  file = "data/model_simple_once",
+  file = "data/model_simple_camp",
   chains = 0
 )
diff --git a/_scripts_hddm/fit_model_tmpl.R b/_scripts_hddm/fit_model_tmpl.R
@@ -0,0 +1,22 @@
+suppressPackageStartupMessages({{
+  library(tidyverse)
+  library(brms)
+}})
+source("_scripts_hddm/utils.R")
+requireNamespace("bit64", quietly = TRUE)
+context <- "{context}"
+game_id <- "{game_id}"
+effect <- "{effect}"
+model_name <- if (effect == "simple") "simple" else "diff"
+model <- readRDS(
+  fs::path("data", sprintf("model_%s_%s.rds", model_name, context))
+)
+cat("Processing: ", data.iquizoo::match_info(game_id, "game_name"), "\n")
+cat("Context: ", context, "\n")
+file_save <- fs::path(
+  "data-raw",
+  sprintf("hddm-%s", context),
+  sprintf("game-%s_effect-%s_wiener", game_id, effect)
+)
+data <- load_data(game_id, context, effect, "{key}", {rt_min}, {rt_max})
+sample_model(model, data, file = file_save, iter = 1000, warmup = 500)
diff --git a/_scripts_hddm/model_alert.R b/_scripts_hddm/model_alert.R
diff --git a/_scripts_hddm/model_antisac.R b/_scripts_hddm/model_antisac.R
diff --git a/_scripts_hddm/model_birds_cong.R b/_scripts_hddm/model_birds_cong.R
diff --git a/_scripts_hddm/model_birds_switch.R b/_scripts_hddm/model_birds_switch.R
diff --git a/_scripts_hddm/model_cardsort.R b/_scripts_hddm/model_cardsort.R
diff --git a/_scripts_hddm/model_counting.R b/_scripts_hddm/model_counting.R