From 523d86799c34e8b5e42e9591ef9c7018edf63f76 Mon Sep 17 00:00:00 2001
From: Erik de Vries <erik.devries@uis.no>
Date: Fri, 16 Oct 2020 14:09:38 +0200
Subject: [PATCH] removed arousal measures

---
 R/actor_merger.R | 18 +++++++++---------
 R/sentencizer.R  |  8 ++++----
 2 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/R/actor_merger.R b/R/actor_merger.R
index a5eb5f5..0045f58 100644
--- a/R/actor_merger.R
+++ b/R/actor_merger.R
@@ -34,7 +34,7 @@ actor_merger <- function(df, actors_meta = NULL, actor_groups = NULL, pos_cutoff
                actor.sent = sum(sent_binary_weighted)/sum(words),
                actor.sent_words = sum(sent_words),
                actor.words = sum(words),
-               actor.arousal = sum(abs(sent_binary_weighted))/sum(words),
+               # actor.arousal = sum(abs(sent_binary_weighted))/sum(words),
                actor.first = first(sentence_id),
                actor.occ = .N,
                publication_date = first(publication_date),
@@ -84,7 +84,7 @@ actor_merger <- function(df, actors_meta = NULL, actor_groups = NULL, pos_cutoff
                       .(text.sent = sum(sent_binary_weighted)/sum(words),
                         text.sent_words = sum(sent_words),
                         text.words = sum(words),
-                        text.arousal = sum(abs(sent_binary_weighted))/sum(words),
+                        # text.arousal = sum(abs(sent_binary_weighted))/sum(words),
                         text.sentences = .N,
                         doctype = first(doctype),
                         publication_date = first(publication_date)
@@ -109,7 +109,7 @@ actor_merger <- function(df, actors_meta = NULL, actor_groups = NULL, pos_cutoff
                         .(noactor.sent = sum(sent_binary_weighted)/sum(words),
                           noactor.sent_words = sum(sent_words),
                           noactor.words = sum(words),
-                          noactor.arousal = sum(abs(sent_binary_weighted))/sum(words),
+                          # noactor.arousal = sum(abs(sent_binary_weighted))/sum(words),
                           noactor.first = first(sentence_id),
                           noactor.occ = .N
                         ), by = list(id)]
@@ -118,7 +118,7 @@ actor_merger <- function(df, actors_meta = NULL, actor_groups = NULL, pos_cutoff
               .(actor.sent = sum(sent_binary_weighted)/sum(words),
                 actor.sent_words = sum(sent_words),
                 actor.words = sum(words),
-                actor.arousal = sum(abs(sent_binary_weighted))/sum(words),
+                # actor.arousal = sum(abs(sent_binary_weighted))/sum(words),
                 actor.first = first(sentence_id),
                 actor.occ = .N,
                 publication_date = first(publication_date),
@@ -128,7 +128,7 @@ actor_merger <- function(df, actors_meta = NULL, actor_groups = NULL, pos_cutoff
                   .(actor.sent = sum(sent_binary_weighted)/sum(words),
                     actor.sent_words = sum(sent_words),
                     actor.words = sum(words),
-                    actor.arousal = sum(abs(sent_binary_weighted))/sum(words),
+                    # actor.arousal = sum(abs(sent_binary_weighted))/sum(words),
                     actor.first = first(sentence_id),
                     actor.occ = .N,
                     publication_date = first(publication_date),
@@ -138,7 +138,7 @@ actor_merger <- function(df, actors_meta = NULL, actor_groups = NULL, pos_cutoff
                   .(actor.sent = sum(sent_binary_weighted)/sum(words),
                     actor.sent_words = sum(sent_words),
                     actor.words = sum(words),
-                    actor.arousal = sum(abs(sent_binary_weighted))/sum(words),
+                    # actor.arousal = sum(abs(sent_binary_weighted))/sum(words),
                     actor.first = first(sentence_id),
                     actor.occ = .N,
                     publication_date = first(publication_date),
@@ -154,7 +154,7 @@ actor_merger <- function(df, actors_meta = NULL, actor_groups = NULL, pos_cutoff
                  .(actor.sent = sum(sent_binary_weighted)/sum(words),
                    actor.sent_words = sum(sent_words),
                    actor.words = sum(words),
-                   actor.arousal = sum(abs(sent_binary_weighted))/sum(words),
+                   # actor.arousal = sum(abs(sent_binary_weighted))/sum(words),
                    actor.first = first(sentence_id),
                    actor.occ = .N,
                    publication_date = first(publication_date)), by = list(id, ids)]
@@ -194,7 +194,7 @@ actor_merger <- function(df, actors_meta = NULL, actor_groups = NULL, pos_cutoff
       actor.sent = sum(sent_binary_weighted)/sum(words),
       actor.sent_words = sum(sent_words),
       actor.words = sum(words),
-      actor.arousal = sum(abs(sent_binary_weighted))/sum(words),
+      # actor.arousal = sum(abs(sent_binary_weighted))/sum(words),
       actor.first = first(sentence_id),
       actor.occ = .N,
       publication_date = first(publication_date)
@@ -209,7 +209,7 @@ actor_merger <- function(df, actors_meta = NULL, actor_groups = NULL, pos_cutoff
       actor.sent = sum(sent_binary_weighted)/sum(words),
       actor.sent_words = sum(sent_words),
       actor.words = sum(words),
-      actor.arousal = sum(abs(sent_binary_weighted))/sum(words),
+      # actor.arousal = sum(abs(sent_binary_weighted))/sum(words),
       actor.first = first(sentence_id),
       actor.occ = .N,
       publication_date = first(publication_date)
diff --git a/R/sentencizer.R b/R/sentencizer.R
index d69a8d7..55676a0 100644
--- a/R/sentencizer.R
+++ b/R/sentencizer.R
@@ -107,10 +107,10 @@ sentencizer <- function(out, sent_dict = NULL, localhost = NULL, validation = F)
           text.words = sum(words),
           text.sent_words = sum(sent_words),
           text.sentences = n()
-        ) %>%
-        mutate(
-          text.arousal = text.sent_words/text.words
-        )
+        ) #%>%
+        # mutate(
+        #   text.arousal = text.sent_words/text.words
+        # )
 
     } else {
       text_sent <- out %>%