fixed interaction plots

phelps-sg · Jan 10, 2024 · 9347e04 · 9347e04
1 parent 0fba020
commit 9347e04
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/jupyter-book/R-MixedModel.R b/jupyter-book/R-MixedModel.R
@@ -513,7 +513,10 @@ interaction_plots <- function(participant_group, legend) {
     mc.cores = 12
   )
   combined <- reduce(predictions, rbind)
-  combined <- rbind(combined, theoretical_df(participant_group))
+  combined <- rbind(
+    combined,
+    theoretical_df_for_group(participant_group, experiment = theoretical_dilemma)
+  )
   names(combined)[6] <- "Model"
 
   p <- ggplot(combined) +