clarify comments in script

slu-soc1120 · Apr 19, 2018 · 5aef5b3 · 5aef5b3
1 parent 6a4465a
commit 5aef5b3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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))