上面是读数据，然后是程序。

> svmModel <- ksvm(as.matrix(a1[6:699]),

+ as.factor(a1$diagnosis),

+ type="C-svc",kernel="rbfdot",C=10,cross=5)

Using automatic sigma estimation (sigest) for RBF or laplace

kernel

> c_v=cross(svmModel)

> c_v

[1] 0.1090057

> hui=predict(svmModel )

> table(hui,a1$diagnosis)

错误于table(hui, a1$diagnosis) : 所有参数的长度都应一致

> pre=predict(svmModel,a2[6:699])

错误于votematrix[i, ret < 0] <- votematrix[i, ret < 0] + 1 :

  

下标赋值里不允许NA

> write.csv(data.frame(pre,class=a2$diagnosis, zu=a2$unit),

+ file="zpre.csv"

+ )

老是提示所有参数长度应该一致，但是参数没有缺失值啊，变量名也改了，还是跑不出来，怎么回事，求解？