From 5aef5b3b1d060210a44a28a333d58dd12e47c77c Mon Sep 17 00:00:00 2001
From: Christopher Prener <chris.prener@slu.edu>
Date: Thu, 19 Apr 2018 18:24:33 -0500
Subject: [PATCH] clarify comments in script

---
 2016/source/createMap.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/2016/source/createMap.R b/2016/source/createMap.R
index 2db1653..18b2e65 100644
--- a/2016/source/createMap.R
+++ b/2016/source/createMap.R
@@ -18,11 +18,11 @@ library(prener)
 us_sf <- usa_sf("laea")
 
 ## Create median income object
-### download missouri counties
+### download median income by county
 us_county_income <- get_acs(geography = "county", variables = "B19013_001", 
                             shift_geo = TRUE, geometry = TRUE)
 
-### jenks natural breaks
+### calculate jenks natural breaks
 jenks <- classIntervals(us_county_income$estimate, n=5, style="jenks")
 income <- cut(us_county_income$estimate, breaks = c(jenks$brks))