R/sentomeasures_measures_xyz.R
measures_fill.Rd
Adds missing dates between earliest and latest date of a sento_measures
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.
measures_fill( sento_measures, fill = "zero", dateBefore = NULL, dateAfter = NULL )
sento_measures | a |
---|---|
fill | an element of |
dateBefore | a date as |
dateAfter | a date as |
A modified sento_measures
object.
The dateBefore
and dateAfter
dates are converted according to the sento_measures[["by"]]
frequency.
Samuel Borms
# construct a sento_measures object to start with corpus <- sento_corpus(corpusdf = sentometrics::usnews) corpusSample <- quanteda::corpus_sample(corpus, size = 500) l <- sento_lexicons(sentometrics::list_lexicons[c("LM_en", "HENRY_en")], sentometrics::list_valence_shifters[["en"]]) ctr <- ctr_agg(howTime = c("equal_weight", "linear"), by = "day", lag = 7, fill = "none") sento_measures <- sento_measures(corpusSample, l, ctr) # fill measures f1 <- measures_fill(sento_measures) f2 <- measures_fill(sento_measures, fill = "latest") f3 <- measures_fill(sento_measures, fill = "zero", dateBefore = get_dates(sento_measures)[1] - 10, dateAfter = tail(get_dates(sento_measures), 1) + 15)