Remove specific word from a dfm

Question

From this process

library(stm)
 testDfm <- gadarian$open.ended.response %>%
         tokens(remove_punct = TRUE, remove_numbers = TRUE, remove_symbols =