Initial commit

tracts/1980/tabular/race-ethnicity/construction/create-tracts-1980TIGER-race-ethnicity.R

@@ -0,0 +1,24 @@
+## File creates file containing race & ethnicity variables at the
+## tract level for DC Area from 1980 Census STF-1 data
+
+## Set up environment
+library(tidyverse)
+
+## Identify race variable names
+races <- c('totpop', 'nhw', 'nhb', 'api', 'hsp', 'oth', 'two')
+praces <- paste0('p', races[-1])
+racevars <- c(races, praces)
+
+## Identify variables to keep that are not race variables
+nonracevars <- c('GISJOIN', 'STATE', 'COUNTY')
+
+## Set Functions
+source('dcarea_functions.R')
+
+load('../US/tracts/1980/tabular/race-ethnicity/dataset/tracts-1980TIGER-race-ethnicity.Rdata')
+
+## Select DC-area tracts
+racedta <- select.dcarea(trt80_re)
+
+## Write file containing wide dataset to CSV format
+write.csv(racedta, 'tracts/1980/tabular/race-ethnicity/dataset/tracts-1980TIGER-race-ethnicity.csv')