R/sentiment.t.tests.R

In sabalicodev/sabali: Twitter Text & Sentiment Analysis for R

#' @title rSentiment Plots
#' @description Blank Description.
#' @param s Sentiment Data
#' @param n Name
#' Defaults to TRUE.
#' @keywords package
#' @return NULL
#' @export
#' @examples sentiment.t.test()

sentiment.t.test <- function(s1, s2, e) {
	
# Make New Data from Input

nk.sentiment <- s1

cbo.sentiment <- s2

filter.emotion <- e

filter.emotion<- tolower(filter.emotion)

emotion.column <- c(paste0(tolower(c(filter.emotion))))

nk.sentiment.emotion <- nk.sentiment[emotion.column]

colnames(nk.sentiment.emotion) <- c("nk.emotion")

emotion.column <- c(paste0(tolower(c(filter.emotion))))

cbo.sentiment.emotion <- cbo.sentiment[emotion.column]

colnames(cbo.sentiment.emotion) <- c("cbo.emotion")

return(t.test(nk.sentiment.emotion, cbo.sentiment.emotion))

}