Last chance! 50% off unlimited learning
Sale ends in
Differences the sentiment measures from a sento_measures
object.
# S3 method for sento_measures
diff(x, lag = 1, differences = 1, ...)
A modified sento_measures
object, with the measures replaced by the differenced measures as well as updated
statistics.
Samuel Borms
data("usnews", package = "sentometrics")
data("list_lexicons", package = "sentometrics")
data("list_valence_shifters", package = "sentometrics")
# construct a sento_measures object to start with
corpus <- sento_corpus(corpusdf = usnews)
corpusSample <- quanteda::corpus_sample(corpus, size = 500)
l <- sento_lexicons(list_lexicons[c("LM_en", "HENRY_en")], list_valence_shifters[["en"]])
ctr <- ctr_agg(howTime = c("equal_weight", "linear"), by = "year", lag = 3)
sento_measures <- sento_measures(corpusSample, l, ctr)
# first-order difference sentiment measures with a lag of two
diffed <- diff(sento_measures, lag = 2, differences = 1)
Run the code above in your browser using DataLab