From a3e8dcf96e95848249f138d5ff2d40fab2355b2c Mon Sep 17 00:00:00 2001
From: Erik de Vries <erik@devries.pm>
Date: Fri, 21 Jun 2019 16:23:28 +0200
Subject: [PATCH] actor_fetcher: switched from binary word sentiment scores to
 proximity scores (cosine similarity)

---
 R/actor_fetcher.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/actor_fetcher.R b/R/actor_fetcher.R
index b3d21a6..91110bc 100644
--- a/R/actor_fetcher.R
+++ b/R/actor_fetcher.R
@@ -41,8 +41,8 @@ actor_fetcher <- function(out, sent_dict = NULL, cores = 1, localhost = NULL, va
         filter(upos != 'PUNCT') %>% # For getting proper word counts
         mutate(V1 = str_c(lemma,'_',upos)) %>%
         left_join(sent_dict, by = 'V1') %>%
-        ### Setting binary sentiment as unit of analysis
-        mutate(V2 = V3) %>%
+        # ### Setting binary sentiment as unit of analysis
+        # mutate(V2 = V3) %>%
         group_by(sentence_id) %>%
         mutate(
           V2 = case_when(