From b62ad1223fcb8b7ec2dafa6a079659689159162f Mon Sep 17 00:00:00 2001
From: Alex Gebben Work <agebben@uwyo.edu>
Date: Thu, 30 Oct 2025 17:00:31 -0600
Subject: [PATCH] Added notes to zip code file for lincoln, kemmerer

---
 Zip_Code.r | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Zip_Code.r b/Zip_Code.r
index ac15634..12c1223 100644
--- a/Zip_Code.r
+++ b/Zip_Code.r
@@ -11,6 +11,8 @@ vars <- c("B01001_004","B01001_005")
 
 get_acs(geography="tract",variables=vars,state='WY',county='lincoln',GEOID='56023978400')
 ######MALE
+
+#Variable names from: https://api.census.gov/data/2019/acs/acs1/variables.html
 VARS <-c(
 #Under_Five
 'B01001_003E',
@@ -32,6 +34,7 @@ VARS <-c(
 'B01001_011E',
 #85+
 'B01001_025E')
+#Testing age Comparison between the two
 TEMP <- get_acs(geography="tract",variables=VARS,state='WY',county='lincoln')
 KEM <- TEMP %>% filter(GEOID=='56023978400')
 KEM