程序如下,
#nature设置 是否输出词性
data.wordseg <- segmentCN(data.all$description, nature = TRUE)
for(i in 1:6000){
print(i)
data.wordseg[[i]] <- data.wordseg[[i]][names(data.wordseg[[i]]) %in% c("userDefine","a","ad","an","j","n","nr","ns","nz","v","vd","vn")]
}
报错:
Error in rep(seq_along(X), times = as.numeric(X)) :
invalid 'times' argument
In addition: Warning messages:
1: In strsplit(strout, split = " ") :
input string 3 is invalid in this locale
2: In strsplit(strout, split = " ") :
input string 4 is invalid in this locale
3: In strsplit(strout, split = " ") :
input string 5 is invalid in this locale
4: In strsplit(strout, split = " ") :
input string 6 is invalid in this locale
5: In strsplit(strout, split = " ") :
input string 7 is invalid in this locale
不知道怎么调试了,求助各位