R/func_list.R

In almogsi/TATE: Text Analysis Tools for English

data(.sysdata, envir=environment())


NoVAD <- function(text){
  b <- tolower(as.character(text))
  b <-  textstem::lemmatize_strings(b)
  which.txt <- which(NoVAD_txt$Word %in% unlist(stringr::str_split(b, " ")))
  valence <- round(sum(NoVAD_txt$V.Mean.Sum[which.txt]) / length(which.txt), 2)
  arousal <- round(sum(NoVAD_txt$A.Mean.Sum[which.txt]) / length(which.txt),2)
  dominance <- round(sum(NoVAD_txt$D.Mean.Sum[which.txt]) / length(which.txt),2)
  return(c(Valence = valence, Arousal = arousal, Dominance = dominance))
}

concretness <- function(text){

  b <- tolower(as.character(text))
  b <-  textstem::lemmatize_strings(b)
  which.txt <- which(conc$Word %in% unlist(stringr::str_split(b, " ")))
  concretness <- round(sum(conc$Conc.M[which.txt]) / length(which.txt),2)
  return(c(Concretness = concretness))
}

funny <- function(text){

  b <- tolower(as.character(text))
  b <-  textstem::lemmatize_strings(b)
  which.txt <- which(humor$word %in% unlist(stringr::str_split(b, " ")))
  funny <- round(sum(humor$mean[which.txt]) / length(which.txt),2)
  return(c(funny = funny))
}

EvLex <- function(text){

  b <- tolower(as.character(text))
  b <-  textstem::lemmatize_strings(b)
  which.txt <- which(EL$Word %in% unlist(stringr::str_split(b, " ")))
  Valence <- round(sum(EL$Valence[which.txt]) / length(which.txt),2)
  Extremity <- round(sum(EL$Extremity[which.txt]) / length(which.txt),2)
  Emotionality <- round(sum(EL$Emotionality[which.txt]) / length(which.txt),2)
  return(c(Valence = Valence, Extremity = Extremity, Emotionality = Emotionality))
}