Resolvido problema de gsub remove stop words e coloquei dtm.control na função de dtm.
Limpei o script e deixei apenas o que estamos usando. Limpeza apenas com dtm.control.