full pilot data; added interaction analysis

magpie-ea · May 29, 2024 · 60500c9 · 60500c9
1 parent 71ab732
commit 60500c9
Show file tree

Hide file tree

Showing 2 changed files with 1,300 additions and 1 deletion.
diff --git a/analyses/01-data-exploration-pilot-01.r b/analyses/01-data-exploration-pilot-01.r
@@ -127,4 +127,15 @@ faintr::compare_groups(
   fit, 
   higher = effect_valence == 'unpleasant' & mechanism == 'disjunctive',
   lower  = effect_valence == 'unpleasant' & mechanism == 'conjunctive'
-)                       
+)
+
+## 'mechanism-effect' for conjuncttive vs. 'mechanism-effect' for disjunctive
+## -> not credible
+faintr::extract_cell_draws(fit) |> 
+  mutate(
+    mechDiff_conj = `conjunctive:pleasant` - `conjunctive:unpleasant`,
+    mechDiff_disj = `disjunctive:pleasant` - `disjunctive:unpleasant`,
+    interaction   = mechDiff_disj - mechDiff_conj
+    ) |> 
+  pull(interaction) |> 
+  aida::summarize_sample_vector()