punisedSVM - Ошибка в if (any (co)) {: отсутствует значение, где требуется TRUE / FALSE

Question

Я хочу разработать штрафную машину опорных векторов на основе набора данных с 78 функциями. Для анализа я использовал пакет «наказанный SVM». Когда я запускаю модель, я получаю следующую ошибку: Ошибка в if (any (co)) {: пропущенное значение, где требуется TRUE / FALSE

После этого я вручную преобразовал столбец результатов в 1 и -1 и снова запустил модель. Однако я получаю ту же ошибку.

install.packages("penalizedSVM")
library(penalizedSVM)
x<-as.matrix(Sus.Food.Train[,1:78])
y<-factor(Sus.Food.Train[,79:79],labels=c(-1,1))
lambda<-seq(0.01, 0.05, 0.01)
> penmodel<-svmfs(x,y, fs.method = c("scad"), grid.search=c("interval","discrete"), lambda1.set=lambda, lambda2.set=lambda, bounds=NULL, parms.coding= c("log2","none"), maxevals=500, inner.val.method = c("cv", "gacv"), cross.inner= 5, show= c("none", "final"), calc.class.weights=FALSE, class.weights=NULL, seed=123, maxIter=700, verbose=TRUE)                                                                          
[1] "grid search"
[1] "interval" "discrete"
[1] "show"
[1] "none"  "final"
[1] "feature selection method is scad"
[1] "start interval search"
[1] "inner validation method: cv"   "inner validation method: gacv"
[1] "parms.coding"
[1] "log2" "none"
            [,1]
 [1,] -7.5187811
 [2,] -2.2570884
 [3,] -1.3406547
 [4,]  9.9856059
 [5,]  9.0326471
 [6,]  7.5339884
 [7,] -2.6916590
 [8,] -3.7342166
 [9,]  0.4908525
[10,] -6.1744144
[11,]  3.1843862
[12,] -7.1037934
[13,] -8.2601756
[14,] -9.9773981
[15,]  6.5240792
[16,]  4.9833827
[17,]  5.4236162
[18,] -0.3860734
[19,]  3.6012491
[20,]  2.2445321
[21,] -5.0723613
[1] "parms.coding"
[1] "log2" "none"
[1] "lambda1= 0.005"
[1] "maxIter= 700"
Fehler in if (any(co)) { : Fehlender Wert, wo TRUE/FALSE nötig ist
Zusätzlich: Es gab 50 oder mehr Warnungen (Anzeige der ersten 50 mit warnings())

Ожидаемый результат будет вызываемой моделью, которая показывает сокращенный набор функций.