In adityamangal410/deepSentimentR: Package to Analyze Sentiment Datasets

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  message = FALSE, 
  warning = FALSE,
  error = FALSE
)

library(dplyr)
library(deepSentimentR)

data("sentiment140_train")

sentiment140_train %>% 
  freq_by_polarity(user_list = c("", "mcraddictal"), 
                   start_date_time = lubridate::as_datetime("2009-05-30"),
                   end_date_time = lubridate::as_datetime("2009-06-03"),
                   keyword_list = c(""))

time_series()

bigram_network()

word_cor_network()

predict_polarity_keras(model_load_path = system.file("extdata",
                                                     "train_no_glove_lstm.rds",
                                                     package = "deepSentimentR",
                                                     mustWork = TRUE))

predict_polarity_keras(model_load_path = system.file("extdata",
                                                     "train_glove_lstm.rds",
                                                     package = "deepSentimentR",
                                                     mustWork = TRUE))

predict_polarity_keras(model_load_path = system.file("extdata",
                                                     "train_no_glove_conv_1d.rds",
                                                     package = "deepSentimentR",
                                                     mustWork = TRUE))

predict_polarity_keras(model_load_path = system.file("extdata",
                                                     "train_glove_conv_1d.rds",
                                                     package = "deepSentimentR",
                                                     mustWork = TRUE))

adityamangal410/deepSentimentR documentation built on June 3, 2019, 6:15 p.m.