2009-03-31から1日間の記事一覧

N-gram with R

R

ngram <- function(str,n){ strvec <- c() for(i in 1:(nchar(str)-n+1)){ strvec[i] <- paste(strsplit(sentence,"")[[1]][i:(i+n)],collapse="") } sort(table(strvec),decreasing=TRUE) } > sentence <- "自分の居間まで重そうな母の言葉は母も聞きます。…