Trimmed code for combining overcomple cols results

dfe-analytical-services · Nov 3, 2023 · 51a114d · 51a114d
1 parent ba7d342
commit 51a114d
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/mainTests.r b/R/mainTests.r
@@ -1111,9 +1111,8 @@ overcompleted_cols <- function(data, meta) {
   overcomplete_geographies <- c(
     unlist(apply(regional_matrix, 1, overcomplete_regional_cols)),
     unlist(apply(la_matrix, 1, overcomplete_la_cols)),
-    unlist(apply(geography_matrix[4:6, ], 1, overcomplete_mid_cols)),
     unlist(apply(lsip_matrix, 1, overcomplete_lsip_cols)),
-    unlist(apply(geography_matrix[8:13, ], 1, overcomplete_mid_cols)),
+    unlist(apply(geography_matrix[c(4:6,8:13), ], 1, overcomplete_mid_cols)),
     unlist(apply(geography_matrix[14:17, ], 1, overcomplete_low_cols))
   )