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