removed sent_sum_pos/neg

master
Erik de Vries 4 years ago
parent 153c54b376
commit a37fc0410d

@ -52,8 +52,6 @@ sentencizer <- function(out, sent_dict = NULL, localhost = NULL, validation = F)
) )
) %>% ) %>%
summarise(sent_sum = sum(prox), summarise(sent_sum = sum(prox),
sent_sum_pos = sum(prox[prox>0]),
sent_sum_neg = sum(prox[prox<0]),
words = length(lemma), words = length(lemma),
sent_words = sum(prox != 0), sent_words = sum(prox != 0),
# sent_lemmas = list(lem_u[prox != 0]) # sent_lemmas = list(lem_u[prox != 0])

Loading…
Cancel
Save