Update pj_estimate.R

Changed again
yhoriuchi · Aug 19, 2023 · 1dbac20 · 1dbac20
1 parent 7106420
commit 1dbac20
Showing 1 changed file with 11 additions and 8 deletions.
diff --git a/R/pj_estimate.R b/R/pj_estimate.R
@@ -231,7 +231,7 @@ pj_estimate <- function(
   selected <- NULL
   selected_1 <- NULL
   selected_2 <- NULL
-
+  
   # Organize data -----------------------------------------------------------
 
   if (estimand == "mm"){
@@ -563,13 +563,16 @@ pj_estimate <- function(
 
   # Keep the observations with both "selected" and "agree"
 
-  if (is.null(irr)){
-    data_for_cov <- data_for_estimand %>% 
-      dplyr::filter(!is.na(agree))
-  } else{
-    data_for_cov <- data_for_estimand
-  }
-
+  data_for_cov <- data_for_estimand %>% 
+    dplyr::filter(!is.na(agree))
+
+  # if (is.null(irr)){
+  #   data_for_cov <- data_for_estimand %>% 
+  #     dplyr::filter(!is.na(agree))
+  # } else{
+  #   data_for_cov <- data_for_estimand
+  # }
+
   if (estimand == "mm"){
 
     if (is.null(.irr)){