# NOT RUN {
stopWords <- "review;giveaway;save;deal;win;won;price;launch;news;gift;announce;
reveal;sale;http;buy;bought;purchase;sell;sold;invest;discount;
coupon;ship;giving away"
data(NMTrainingData)
filteredTweets <- removeTweetsStopwords(NMTrainingData, stopWords)
# }
Run the code above in your browser using DataLab