Skip to content

Instantly share code, notes, and snippets.

Created June 14, 2012 22:43
Show Gist options
  • Select an option

  • Save anonymous/2933461 to your computer and use it in GitHub Desktop.

Select an option

Save anonymous/2933461 to your computer and use it in GitHub Desktop.
income_df
all_tracts = lapply(income, function(county)
lapply(county$tracts, function(tract) as.data.frame(c(county[1:3],tract))))
all_tracts_temp = lapply(all_tracts, function(county) as.data.frame(do.call(rbind, county)))
income_df = as.data.frame(do.call(rbind, all_tracts_temp))
summary(income_df)
ff = as.numeric(income_df$medianIncome)
ff = as.numeric(as.character(income_df$medianIncome))
income_df$medianIncome = as.numeric(as.character(income_df$medianIncome))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment