Description Usage Arguments Value Examples
Ouput sentiment value given a fitted model and frequency table.
1 | predictGWP(frequencies, model)
|
frequencies |
frequencies data.table generated using the function |
model |
Score model generated with |
A data.table with the following element:
regID: regression ID.
SentimentScores: predicted sentiment scores.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | # Load example data
data("corpus", package = "GWP")
data("vix", package = "GWP")
# Setup the lexicons
sentimentWord <- sentometrics::list_lexicons$LM_en$x
shifterWord <- sentometrics::list_valence_shifters$en[, c("x", "y")]
# Generate the frequency data
frequencies <- computeFrequencies(corpus[1:991, ], sentimentWord, shifterWord, clusterSize = 5)
# Calibrate the lexicon
res <- fitGWP(frequencies = frequencies, responseData = vix)
newFrequencies <- computeFrequencies(corpus[-1:-991, ], sentimentWord, shifterWord, clusterSize = 5)
pred <- predictGWP(newFrequencies, res)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.