data("usnews", package = "sentometrics")
data("list_lexicons", package = "sentometrics")
data("list_valence_shifters", package = "sentometrics")
sm <- sento_measures(sento_corpus(corpusdf = usnews[1:200, ]),
sento_lexicons(list_lexicons["LM_en"]),
ctr_agg(lag = 3))
data.table::as.data.table(sm)
data.table::as.data.table(sm, format = "long")
Run the code above in your browser using DataLab