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