Read the data
rm(list=ls())
fillColor = "#FFA07A"
fillColor2 = "#F1C40F"
train <- read_tsv("input/MoviesSentimentAnalysis/train.tsv")
test <- read_tsv("input/MoviesSentimentAnalysis/test.tsv")
glimpse(train)
## Observations: 156,060
## Variables: 4
## $ PhraseId <int> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, ...
## $ SentenceId <int> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, ...
## $ Phrase <chr> "A series of escapades demonstrating the adage that...
## $ Sentiment <int> 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, ...