Commit 4e7cbf6a authored by Brian Wilson's avatar Brian Wilson 🍕

added hanover recodes

parent 9d72b944
......@@ -356,6 +356,12 @@ geo_recodes <- function(dataset){
nbhds <- rbind(c("103", "150", "22", "23", "60")
, c("81", "51", "31", "31", "51")
, c("NCHARS", "NCHARS", "NCHARS", "NCHARS", "NCHARS"))
}
# HANOVER RECODES
else if(target_township == "18"){
nbhds <- rbind(c("14", "20")
, c("11", "10")
, c("NCHARS", "NCHARS"))
}else{
return(dataset)
print(paste0("Warning: Neighborhood recodes have not been coded for township ", target_township, ", or this function is BROKEN"))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment