# NOT RUN {
sentimentr_data()
available_data() ## generic version for export
available_data(package = 'datasets')
sentimentr_data('^hu')
sentimentr_data('^(hu|kot)')
combine_data(sentimentr_data('^(hu|kot)')[[1]])
# }
# NOT RUN {
if (!require("pacman")) install.packages("pacman")
pacman::p_load(sentimentr, tidyverse, magrittr)
sentiment_data <- sentimentr_data('^hu') %>%
pull(Data) %>%
combine_data() %>%
mutate(id = seq_len(n())) %>%
as_tibble()
sentiment_test <- sentiment_data %>%
select(-sentiment) %>%
get_sentences() %$%
sentiment(., by = c('id'))
testing <- sentiment_data %>%
left_join(sentiment_test, by = 'id') %>%
as_tibble() %>%
mutate(
actual = sign(sentiment),
predicted = sign(ave_sentiment)
)
testing %$%
ftable(predicted, actual)
# }
Run the code above in your browser using DataLab