SVM预测（e1071） - 将所有预测分类为0

Question

我有这些数据：

> head(k2)
  fromTo adja sims
1  1 - 1    0    0
2  2 - 1    1    3
3  3 - 1    0    2
4  4 - 1    0    5
5  5 - 1    0    3
6  6 - 1    1    3

其中adja是需要预测的类（0或1），而sims是预测所依据的主要因素。

我在R中使用e1071库来运行这个数据的svm。我有以下脚本：

s<- subset(k2, select=-adja)
t <- subset(k2, select=adja)

svm_model <- svm(adja ~ ., data=k2, type='C-classification')
summary(svm_model)
pred <- predict(svm_model,s)
table(pred,t$adja)
svm_tune <- tune.svm(adja ~ sims, data=k2,  cost=10^(-1:2), gamma=(0.1:2.5))

svm_modeltuned=svm(adja ~ sims, data=k2, type='C-classification', kernel = "radial", cost = 100, gamma=1)

p <- predict(svm_modeltuned,s)

table(p,t$adja)

如果我打印p，所有预测都是0：

> table(p)
p
   0    1 
9740    0 

我做错了什么？

由于