不要語を削除する関数をRで記述しました。githubに上げます！

そのままコピー＆ペーストして使用できます。