SApre82015 <- analyzeSentiment(pre82015docs,aggregate = NULL)
SApre82015$SentimentGI

#Show each review's individual sentiment direction (pos/neut/neg)
pre82015$direction <- convertToDirection(SApre82015$SentimentGI)

dic <- DictionaryGI
dict <- SentimentDictionaryBinary(dic$positive, dic$negative)
ruleSentiment(pre82015dtm, dict)

pre82015$ratio[pre82015$direction == 'positive'/pre82015$direction == 'positive'|'negative']

Error: unexpected '==' in "pre82015$ratio[pre82015$direction == 'positive'/pre82015$direction =="