2012-05-18から1日間の記事一覧
ヘルプを探し回りましたが、ないので作りました。 ご自由にお使い下さい。 以下をコピペしてください tadasi <- function(text,p){ x1 <- unlist(strsplit(text,NULL)) res <- NULL for( i in 1:length(x1)){ if(x1[i]!="。" & x1[i]!="." & x1[i]!="!"){ #…
ヘルプを探し回りましたが、ないので作りました。 ご自由にお使い下さい。 以下をコピペしてください tadasi <- function(text,p){ x1 <- unlist(strsplit(text,NULL)) res <- NULL for( i in 1:length(x1)){ if(x1[i]!="。" & x1[i]!="." & x1[i]!="!"){ #…