update pj_estimate.R

If researchers use make_projoint_data() from an already tidied tibble, they may not have an "agree" column (if they do not have a repeated task). Fixed the code to address this issue.
yhoriuchi · Aug 19, 2023 · 1b035e7 · 1b035e7
1 parent 1f2c03a
commit 1b035e7
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/R/pj_estimate.R b/R/pj_estimate.R
@@ -563,9 +563,13 @@ pj_estimate <- function(
 
   # Keep the observations with both "selected" and "agree"
 
-  data_for_cov <- data_for_estimand %>% 
-    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)){

diff --git a/man/projoint.Rd b/man/projoint.Rd