Skip to content

Instantly share code, notes, and snippets.

@abromberg

abromberg/First shot: Sentiment Analysis in R #1.R

Last active December 10, 2015 17:48
Show Gist options
  • Save abromberg/4470271 to your computer and use it in GitHub Desktop.
Save abromberg/4470271 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
First shot: Sentiment Analysis in R #1.R
posText <- read.delim(file='polarityData/rt-polaritydata/rt-polarity-pos.txt', header=FALSE, stringsAsFactors=FALSE)
posText <- posText$V1
posText <- unlist(lapply(posText, function(x) { str_split(x, "\n") }))
negText <- read.delim(file='polarityData/rt-polaritydata/rt-polarity-neg.txt', header=FALSE, stringsAsFactors=FALSE)
negText <- negText$V1
negText <- unlist(lapply(negText, function(x) { str_split(x, "\n") }))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment