From af347295566434b91cbf81eb851dd14d3ba791ab Mon Sep 17 00:00:00 2001
From: yhoriuchi <yusaku.horiuchi@gmail.com>
Date: Sat, 15 Jul 2023 08:35:38 -0400
Subject: [PATCH] Update organize_data.R

---
 R/organize_data.R | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/R/organize_data.R b/R/organize_data.R
index 43233cc..63ffee0 100644
--- a/R/organize_data.R
+++ b/R/organize_data.R
@@ -116,13 +116,15 @@ organize_data <- function(
   
   # data frame to estimate IRR
   data1 <- out1 %>% 
-    dplyr::selected(id, task, disagree) %>% 
-    distinct()
+    dplyr::select(id, task, disagree) %>% 
+    dplyr::distinct()
   
   # data frame to estimate MM or AMCE
   data2 <- out2 %>% 
     dplyr::select(id, task, att, selected, disagree)
   
-  return(list(data1, data2))
+  list("data_for_irr" = data1, 
+       "data_for_estimand" = data2) %>% 
+    return()
   
 }
\ No newline at end of file