From 51a114dee835d924a7f3929039ec6a649ab0786c Mon Sep 17 00:00:00 2001 From: Rich Bielby Date: Fri, 3 Nov 2023 09:45:00 +0000 Subject: [PATCH] Trimmed code for combining overcomple cols results --- R/mainTests.r | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/R/mainTests.r b/R/mainTests.r index 6589a3c..d3b4124 100644 --- 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)) )