Remove M8 mitigation per issue #6

Display-Lab · May 19, 2020 · 8eb80f9 · 8eb80f9
1 parent 4f4d6ab
commit 8eb80f9
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/hurley_ingest.R b/hurley_ingest.R
@@ -66,7 +66,7 @@ calculate_hurley_components <- function(proc_data){
       C8 = sum(contra_choice != "unknown"),
       C9 = sum(contra_choice == "immediate pp iud" | contra_choice == "immediate pp nexplanon"),
       #C10 = sum(contra_choice != "none"), # deprecated
-      C11 = sum(counseling & contra_choice == imm_method),
+      C11 = sum(contra_choice != "unknown" & contra_choice == imm_method),
       C12 = sum(larc_prov == "4-60 days pp visit" | larc_prov == "4-60 days not pp visit"),
       C13 = sum(contra_choice == "immediate pp iud"),
       C14 = sum(contra_choice == "immediate pp nexplanon"),

diff --git a/umich_ingest.R b/umich_ingest.R
@@ -51,7 +51,7 @@ calculate_components <- function(proc_data){
       C8 = sum(contra_choice != "unknown"),
       C9 = sum(contra_choice == "immediate pp iud" | contra_choice == "immediate pp nexplanon"),
       #C10 = sum(contra_choice != "none"), # deprecated
-      C11 = sum(counseling & contra_choice == imm_method),
+      C11 = sum(contra_choice != "unknown" & contra_choice == imm_method),
       C12 = sum(larc_prov == "4-60 days pp visit" | larc_prov == "4-60 days not pp visit"),
       C13 = sum(contra_choice == "immediate pp iud"),
       C14 = sum(contra_choice == "immediate pp nexplanon"),