自编R语言批量分词程序
require(Rwordseg)for(i in 1:37 ){
aaa<- paste("D:\\aaa\\Li\\",mymenu,sep="")
bbb<- paste("D:\\aaa\\splitLi\\",mymenu,sep="")
test<-readLines(aaa,encoding="UTF-8")
res=test
words=unlist(lapply(X=res,FUN=segmentCN))
write(words,file=bbb)
print(i)
}
页:
[1]