ascyoung commented 7 years ago

Hey, I wrote a R script to pull down census data from the R acs package last night. I will show people today in group. I think it will help with our proprietary issues.

ascyoung commented 7 years ago

install.packages(acs) library(acs)

census_api_key("4ddd49b8e2809e4638d9833ecd06d026b40a8443")

api.key.install(key="4ddd49b8e2809e4638d9833ecd06d026b40a8443") coastal_counties <- read.csv("coastal_counties.csv")

county_lookup <- function(datain) {

mygeo <- geo.make(state=datain[2],datain[3],tract="*")

mydata <- acs.fetch(geo=mygeo, endyear=2011, table.number="B01003")

return(mydata)

}

popdata <- apply(coastal_counties,1, county_lookup)

citrus <-geo.make(state=12, county=17, tract="*") acs.fetch(geo=citrus, endyear=2010, table.number="B01003")

FL_escambia <- geo.make(state="FL", county="Escambia", tract="*")

acs.fetch(geo=FL_escambia, endyear=2011, table.number="B01003")

coastal.tracts=geo.make(state=fips.county[random.counties,1],

county=fips.county[random.counties,3], tract="*", check=T)