トップ 差分 一覧 ソース 検索 ヘルプ PDF RSS ログイン

R.scripts

*disclaimer
11549

11548

R.scripts Rのちょっとしたスクリプト


grep

  • ウインドウが開いて検索対象ファイルをえらぶ(例: myGrep("had some")
myGrep <- function(a){
lines.tmp <- scan(choose.files(), what="char", sep="\n")
grep(a, lines.tmp, value=T)
}

  • ファイル名も指定する(例: myGrep2("had some", "JPN005.txt)
    • ただし、作業ディレクトリーが検索対象ファイルのあるディレクトリー(フォルダ)にあること
myGrep2 <- function(a, b){
lines.tmp <- scan(b, what="char", sep="\n")
grep(a, lines.tmp, value=T)
}

myAllTypes.R

  • NICE形式のファイルの異なり語の一覧の出力
  • 作業ディレクトリーをフォルダー内に
  • 結果を保存するファイルをフォルダー外に作成


checkWordList.R

  • Wordリストにあるかどうかチェック
  • ないものだけを出力