working on supplemental walkthrough

ecohealthalliance · Jul 3, 2024 · c1e6207 · c1e6207
1 parent 0972682
commit c1e6207
Show file tree

Hide file tree

Showing 7 changed files with 11,592 additions and 5 deletions.
diff --git a/R/fitting_functions.R b/R/fitting_functions.R
@@ -32,12 +32,12 @@ group_via_3sd           <- function(simulated_data, param_sets, groupings) {
 
    x %>% mutate(
      assigned_group_robust = ifelse(
-       mfi > neg_set_a["mean_neg"] + 3 * neg_set_a["sd_neg"]
+       mfi > (neg_set_a["mean_neg"] + 3 * neg_set_a["sd_neg"])
        , 2
        , 1
      )
      , assigned_group_control = ifelse(
-       mfi > neg_set_b["mean_neg"] + 3 * neg_set_b["sd_neg"]
+       mfi > (neg_set_b["mean_neg"] + 3 * neg_set_b["sd_neg"])
        , 2
        , 1
      )
@@ -97,7 +97,7 @@ group_via_3sd_alt       <- function(simulated_data, param_sets, groupings) {
 
     x.t <- x %>% mutate(
       assigned_group_sample_mfi = ifelse(
-        mfi > neg_set["mean_neg"] + 3 * neg_set["sd_neg"]
+        mfi > (neg_set["mean_neg"] + 3 * neg_set["sd_neg"])
         , 2
         , 1
       )

diff --git a/_targets.R b/_targets.R
@@ -28,7 +28,7 @@ setup_targets <- tar_plan(
        ## : One categorical predictor affecting within-group values
       ## 2: One categorical and one continuous predictor affecting group identity
        ## : One categorical fixed and one categorical random effect affecting group identity
-      tar_target(data_complexity, 2)
+    tar_target(data_complexity, 2)
 
   , tar_target(models_to_compile,
       establish_models(