typo

jdjohn215 · jdjohn215 · commit ca72985031c7 · 2025-06-25T12:37:23.000-05:00
diff --git a/data/src/aggregate_lodes.R b/data/src/aggregate_lodes.R
@@ -55,7 +55,7 @@ aggregate_lodes <- function(year, state,
     fips.length <- case_when(
       geography[g] == "county" ~ 5,
       geography[g] == "tract" ~ 11,
-      geography[g] == "block_group" ~ 12
+      geography[g] == "block_group" ~ 12,
       geography[g] == "cousub" ~ 10
     )
     

Original file line number	Diff line number	Diff line change
`@@ -55,7 +55,7 @@ aggregate_lodes <- function(year, state,`
`55`	`55`	`fips.length <- case_when(`
`56`	`56`	`geography[g] == "county" ~ 5,`
`57`	`57`	`geography[g] == "tract" ~ 11,`
`58`		`- geography[g] == "block_group" ~ 12`
	`58`	`+ geography[g] == "block_group" ~ 12,`
`59`	`59`	`geography[g] == "cousub" ~ 10`
`60`	`60`	`)`
`61`	`61`