sentometrics (version 0.5.6)

measures_fill: Add and fill missing dates

Description

Adds missing dates between earliest and latest date of a sentomeasures object or two more extreme boundary dates, such that the time series are continuous date-wise. Fills in any missing date with either 0 or the most recent non-missing value.

Usage

measures_fill(sentomeasures, fill = "zero", dateBefore = NULL,
  dateAfter = NULL)

Arguments

sentomeasures

a sentomeasures object created using sento_measures.

fill

an element of c("zero", "latest"); the first assumes missing dates represent zero sentiment, the second assumes missing dates represent constant sentiment.

dateBefore

a date as "yyyy-mm-dd", to stretch the sentiment time series from up to the first date. Should be earlier than get_dates(sentomeasures)[1] to take effect. The values for these dates are set to those at get_dates(sentomeasures)[1]. If NULL, then ignored.

dateAfter

a date as "yyyy-mm-dd", to stretch the sentiment time series up to this date. Should be later than tail(get_dates(sentomeasures), 1) to take effect. If NULL, then ignored.

Value

A modified sentomeasures object.

Details

The dateBefore and dateAfter dates are converted according to the sentomeasures[["by"]] frequency.

Examples

# NOT RUN {
data("usnews", package = "sentometrics")
data("list_lexicons", package = "sentometrics")
data("list_valence_shifters", package = "sentometrics")

# construct a sentomeasures 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 = "day", lag = 7, fill = "none")
sentomeasures <- sento_measures(corpusSample, l, ctr)

# fill measures
f1 <- measures_fill(sentomeasures)
f2 <- measures_fill(sentomeasures, fill = "latest")
f3 <- measures_fill(sentomeasures, fill = "zero",
                    dateBefore = get_dates(sentomeasures)[1] - 10,
                    dateAfter = tail(get_dates(sentomeasures), 1) + 15)

# }