From c33c869c05a82c2736e9c2877d76276b13123037 Mon Sep 17 00:00:00 2001 From: Ghozayel Date: Sun, 2 Oct 2022 07:49:05 +0100 Subject: [PATCH] view() --- R/lex.R | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/R/lex.R b/R/lex.R index 3f8244f..f884a9f 100644 --- a/R/lex.R +++ b/R/lex.R @@ -20,12 +20,11 @@ lex <- function(answerVar) { dplyr::summarise(N.correct=sum(score)) %>% #p.correct is the percentage for each type dplyr::mutate(p.correct=if_else(type=="word", N.correct/40*100, N.correct/20*100)) - print(accuracyByType) p.correctAV <- accuracyByType %>% 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')) + dplyr::summarise(p.correctAV=mean(p.correct)) %>% + view() return(p.correctAV) }