我有这些数据：
> 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
我究竟做错了什么？
谢谢