From df7631b9f11031c74d27b3d3dd1d40ad6cb82797 Mon Sep 17 00:00:00 2001 From: Your Name Date: Sun, 5 Jul 2020 13:15:02 +0200 Subject: [PATCH] sentencizer: Changed output, removed lemma list and added separate positive and negative sentiment sums --- R/sentencizer.R | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/R/sentencizer.R b/R/sentencizer.R index bd60f65..3447eb3 100644 --- a/R/sentencizer.R +++ b/R/sentencizer.R @@ -50,9 +50,12 @@ sentencizer <- function(out, sent_dict = NULL, localhost = NULL, validation = F) ) ) %>% summarise(sent_sum = sum(prox), + sent_sum_pos = sum(prox[prox>0]), + sent_sum_neg = sum(prox[prox<0]), words = length(lemma), sent_words = sum(prox != 0), - sent_lemmas = list(lem_u[prox != 0])) %>% + # sent_lemmas = list(lem_u[prox != 0]) + ) %>% mutate( sent = sent_sum/words, arousal = sent_words/words