Don't overwrite mlr_pvalue_viz

Author: ismayc

10-inference-for-regression.Rmd

@@ -2497,15 +2497,15 @@ visualize(null_distribution_mlr) +
 ```{r echo=FALSE}
 mlr_pvalue_viz <- visualize(null_distribution_mlr) +
   shade_p_value(obs_stat = observed_fit, direction = "two-sided")
-#if (!file.exists("images/mlr_pvalue_viz.png")) {
+if (!file.exists("images/mlr_pvalue_viz.png")) {
   ggsave(
     filename = "images/mlr_pvalue_viz.png",
     plot = mlr_pvalue_viz,
     width = 6,
     height = 11,
     dpi = 320
   )
-#}
+}
 ```
 
 ```{r shaded-p-values-partial, echo=FALSE, out.width="55%", fig.height=12, fig.cap="Shaded p-values for the partial slopes in this multiple regression."}