Error in function svm ()

[Mao-young]

I followed Rgtsvm-vignette.pdf and to test the function svm(), and sometimes they didn't work.

The following is not working correctly：：： It also happens when I try the example ( model <- svm(Species ~ ., data = iris) )

model.gpu=svm(x[i.training,],y[i.training],type="C-classification") Error in if (class(x) == "data.frame") x <- as.matrix(x) : the condition has length > 1 此外: Warning message: In !sparse && (class(x) %in% c("matrix", "data.frame")) : 'length(x) = 2 > 1' in coercion to 'logical(1)'

The following is working correctly：：：

gt.svm=svm( dat[i.train,-c(1,2)],dat[i.train,1],gamma=as.numeric(0.0625),cost=as.numeric(10,sacle=F)) show(gt.svm) Call: svm.default(x = dat[i.train, -c(1, 2)], y = dat[i.train, 1], gamma = as.numeric(0.0625), cost = as.numeric(10, sacle = F)) Parameters: SVM-Type: C-classification SVM-Kernel: radial cost: 10 gamma: 0.0625 tolerance: 0.001 time elapsed: 48.922 Number of Support Vectors: 22093

This problem needs to be solved because I seem to get stuck in Rgtsvm when using dREG.