code:

# Takes a df of tweets, returns same
fishmech.filter <- function(x){
  fishmech.terms <- c("@waze", "#runescape", "#SoundHound", "#Kindle", "Levelled", "@eBay", 
                      "Daemonheim", "@YouTube", "Challenges for Microsoft")
  for(i in fishmech.terms){
    x <- x[!grepl(i, x)]
  }
  return(x)
}