diff --git a/R/lex.R b/R/lex.R
index f884a9f..22fa7e1 100644
--- a/R/lex.R
+++ b/R/lex.R
@@ -25,6 +25,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)) %>%
-    view()
+    dplyr::write.csv(here::here(file = 'score.lex.csv'))
   return(p.correctAV)
 }