From 66bd3fbe5356500c5a1281b61b85a4679395e489 Mon Sep 17 00:00:00 2001
From: Ghozayel <gmo6606@gmail.com>
Date: Sun, 2 Oct 2022 07:08:40 +0100
Subject: [PATCH] write.csv

---
 R/lex.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/lex.R b/R/lex.R
index 84d51bd..3f8244f 100644
--- a/R/lex.R
+++ b/R/lex.R
@@ -26,5 +26,6 @@ lex <- function(answerVar) {
     dplyr::group_by(ID) %>%
     #averaging p.correct of the two types to get the lextale score
     dplyr::summarise(p.correctAV=mean(p.correct))
+  write.csv(here::here(p.correctAV, 'lex.score.csv'))
   return(p.correctAV)
 }