Add preprocess.R and census.R