rep(" ", len) 错误：'times' 参数无效

Question

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文件可以在下面的link

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

Answer 1

经过几个小时的测试，我发现了问题，但我不知道为什么会这样。认为它与库（RWeka）包有关....在OneR代码之后放置库（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

rep(" ", len) 错误：'times' 参数无效

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

r

invalid-argument