Add plots for f_model23_z_scored_logistic

code/analysisWordLevelReadAloudBeta.R

@@ -681,6 +681,32 @@ f_model23_z_scored_logistic <- glmer(misprod_outcome ~ hesitation_predictor * sc
                             data=errorDat, family = "binomial")
 summary(f_model23_z_scored_logistic)
 
+
+interact_plot(model = f_model23_z_scored_logistic,
+              pred = scaaredSoc_z,
+              modx = hesitation_predictor,
+              interval = TRUE,
+              x.label = "SCAARED-Social score\n(z-scored)",
+              y.label = expression('Probability of misproduction (word-level)'),
+              legend.main = "Presence/absence of hesitation (word-level)",
+              main.title = "Social Anxiety Severity and Item-Level Hesitations and Misproductions") +
+   theme(plot.title = element_text(hjust = 0.5))
+
+interact_plot(model = f_model23_z_scored_logistic,
+              pred = hesitation_predictor,
+              modx = scaaredSoc_z,
+              interval = TRUE,
+              x.label = "Presence/absence of hesitation (word-level)",
+              y.label = expression('Probability of misproduction (word-level)'),
+              legend.main = "SCAARED-Social score\n(z-scored)",
+              main.title = "Social Anxiety Severity and Item-Level Hesitations and Misproductions") +
+  theme(plot.title = element_text(hjust = 0.5))
+
+
+
+
+
+
 # Errors as explained by disfluency and SA: misproduction from hesitation and scaared_z, control for word
 # hesitation_predictor1               0.09261    0.03686   2.512    0.012 *
 # scaaredSoc_z                        0.01159    0.08326   0.139    0.889