rep(" ", len) 中的错误：'times' 参数无效答案

【问题标题】：Error in rep(" ", len) : invalid 'times' argumentrep(" ", len) 中的错误：'times' 参数无效
【发布时间】：2018-01-23 17:42:29
【问题描述】：

library(OneR)
library(RWeka)

loan_train <- read.csv("loan_train.csv")
loan_test <- read.csv("loan_test.csv")
loan_train <- optbin(loan_train, method = "logreg", na.omit = TRUE)
loan_test <- optbin(loan_test, method = "logreg", na.omit = TRUE)

#Task 1
loan_1R <- OneR(bad_loans ~ ., data = loan_train)
loan_1R

loan_JRip <- JRip(bad_loans ~ ., data = loan_train)
loan_JRip

在我的代码方面需要一些帮助。我可以运行一切，但由于某种原因，每次打印loan_1R 时，都会出现错误。尝试使用 traceback() 但不知道它是什么意思。我的 csv 文件可以在下面的链接中。

https://drive.google.com/file/d/1139FUSXUc_fdzgtKAleo5bGAtjcVGoRC/view?usp=sharing

Error in rep(" ", len) : invalid 'times' argument

In addition: Warning message:
In max(nchar(names(model$rules))) :
  no non-missing arguments to max; returning -Inf
> traceback()
3: cat("If ", model$feature, " = ", names(model$rules[iter]), rep(" ", 
       len), " then ", model$target, " = ", model$rules[[iter]], 
       "\n", sep = "")
2: print.OneR(x)
1: function (x, ...) 
   UseMethod("print")(x) 


> sessionInfo()
R version 3.4.1 (2017-06-30)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows >= 8 x64 (build 9200)

Matrix products: default

locale:
[1] LC_COLLATE=English_Singapore.1252  LC_CTYPE=English_Singapore.1252   
[3] LC_MONETARY=English_Singapore.1252 LC_NUMERIC=C                      
[5] LC_TIME=English_Singapore.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] RWeka_0.4-37 OneR_2.2    

loaded via a namespace (and not attached):
[1] compiler_3.4.1    tools_3.4.1       grid_3.4.1        rJava_0.9-9       RWekajars_3.9.2-1

【问题讨论】：

这段代码对我来说很好用。此外，nchar 行也不是错误，因为提取带有单方括号的列表元素会保留名称。
即：setNames(1:26, letters); names(vec[1]); names(vec)[1];
好吧，你是对的。已删除不正确的评论。
对我来说也很好用
原作者可以发sessionInfo()吗？

标签： r invalid-argument

【解决方案1】：

经过数小时的测试，我发现了问题，但我不知道为什么会这样。认为它与 library(RWeka) 包有关.... 在 OneR 代码似乎使其运行之后放置 library(RWeka)。但这意味着我只有在运行库（RWeka）时才会遇到错误。有什么解决方法吗？

library(OneR)

loan_train <- read.csv("loan_train.csv")
loan_test <- read.csv("loan_test.csv")
loan_train <- optbin(loan_train, method = "logreg", na.omit = TRUE)
loan_test <- optbin(loan_test, method = "logreg", na.omit = TRUE)

#Task 1
loan_1R <- OneR(bad_loans ~ ., data = loan_train)
loan_1R

library(RWeka)

loan_JRip <- JRip(bad_loans ~ ., data = loan_train)
loan_JRip

【讨论】：