Emotion dynamics is a framework for measuring how an individual’s emotions change over time. We introduced the concept of Utterance Emotion Dynamics (UED) to extract emotion dynamics from a person's utterances. This package allows the user to supply passages of text and compute home bases, variability, and displacement among other things. See the arXiv paper for more details.
# install.packages("devtools")
devtools::install_github("whipson/edyn")Load library and use sample data of IMSDb (script database).
library(edyn)
data("imsdb")
head(imsdb)
#> # A tibble: 6 x 7
#> title turn speaker text genre writers date
#> <chr> <dbl> <chr> <chr> <chr> <chr> <dbl>
#> 1 In the L… 118 SIMON "But I was going to… Comedy Jesse Armstrong,… 2009
#> 2 Watchmen 61 DAN "No, uh, just tell … Action,F… David Hayter,Ale… NA
#> 3 Rise of … 320 TOOTH "It's not the teeth… Animatio… David Lindsay-Ab… NA
#> 4 Beauty a… 194 GASTON "Don't thank me, Ma… Family,F… Stephen Chbosky,… 2016
#> 5 Siege, T… 879 ELISE "What are you doing… Action,T… Lawrence Wright,… NA
#> 6 Event Ho… 386 WEIR "What you saw could… Horror,S… Philip Eisner, 1997Compute UED
ued <- ued(imsdb, id = speaker, time = turn, text = text, roll_avg = 10, min_count = 200, summarise = TRUE)
head(ued[, c("speaker", "avg_emo_var", "rise_rate", "disp_count")])
#> # A tibble: 6 x 4
#> speaker avg_emo_var rise_rate disp_count
#> <chr> <dbl> <dbl> <dbl>
#> 1 AARON 0.0675 0.0487 29
#> 2 ABBY 0.0670 0.0416 37
#> 3 ABEL 0.0617 0.0731 18
#> 4 ACE 0.0699 0.0380 38
#> 5 ADAM 0.0647 0.0443 110
#> 6 ADELE 0.0588 0.0487 26