From cc08f71339559d79adf5a7905d184d5338f74176 Mon Sep 17 00:00:00 2001
From: Elise Rust <61128317+eliserust@users.noreply.github.com>
Date: Wed, 8 Dec 2021 10:53:29 -0500
Subject: [PATCH] Update Confidence_Intervals_Regressions.R

---
 Final_Report_Code/Confidence_Intervals_Regressions.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Final_Report_Code/Confidence_Intervals_Regressions.R b/Final_Report_Code/Confidence_Intervals_Regressions.R
index 45d0a16..141b1ed 100644
--- a/Final_Report_Code/Confidence_Intervals_Regressions.R
+++ b/Final_Report_Code/Confidence_Intervals_Regressions.R
@@ -285,7 +285,7 @@ prison_small <- facilities %>%
   drop_na()
 cor(prison_small)
 
-# Regression of colleges
+# Regression of prisons
 regression_prisons <- lm(case_rate ~ facility_type+state+latest_inmate_population+political_party+county_population, data = facilities)
 stats_prisons <- summary(regression_prisons)
 print(stats_prisons)