{{counter}}
!!!R.scripts Rのちょっとしたスクリプト

!grep
*ウインドウが開いて検索対象ファイルをえらぶ（例： myGrep("had some"）
{{pre
myGrep <- function(a){

hit <- 0

lines.tmp <- scan(choose.files(), what="char", sep="\n")
grep(a, lines.tmp, value=T)
}
}}

*ウインドウが開いて検索対象ファイルをえらぶ（例： myGrep("had some"）
**数だけ
{{pre
myGrepN <- function(a){
lines.tmp <- scan(choose.files(), what="char", sep="\n")
	data.tmp <- grep("\\*(JPN|NS)...:\t", lines.tmp, value=T)
		#*で始まり
		# JPNかNS があって、
		# その後ろに、３文字あって、
		# その後ろに、コロンの記号とタブ記号がある行のみ。
	body.tmp <- gsub("\\*(JPN|NS)...:\t", "", data.tmp)
		#行頭の記号とタブ記号を削除。
	body.tmp <- body.tmp[body.tmp != ""]
		# 空の要素を削除（空でない要素のみを残す）する「イディオム」
	body.lower <- tolower(body.tmp)
									# 小文字にして
	body.nopunc <- gsub("\\W", " ", body.lower)
									# 記号をスペースに
	body.single <- gsub(" +", " ", body.nopunc)
									# 重複スペースを一つに
	body.clear <- gsub(" $", "", body.single)
									# 文末スペースの削除
	body.token <- unlist(strsplit(body.clear, " "))
									# 
	body.token <- body.token[body.token != ""]
							# 空の要素を削除する「イディオム」
	j <- 0
	for (j in length(body.token)){

		hit[j] <- grep(a, body.token)
		}
}
}}

*ファイル名も指定する（例： myGrep2("had some", "JPN005.txt）
**ただし、作業ディレクトリーが検索対象ファイルのあるディレクトリー（フォルダ）にあること
{{pre
myGrep2 <- function(a, b){
lines.tmp <- scan(b, what="char", sep="\n")
grep(a, lines.tmp, value=T)
}
}}
!myAllTypes.R
*NICE形式のファイルの異なり語の一覧の出力
*作業ディレクトリーをフォルダー内に
*結果を保存するファイルをフォルダー外に作成


!checkWordList.R
*Wordリストにあるかどうかチェック
*ないものだけを出力