关于R语言做ROC曲线

[qq_33499030]

我用R语言作ROC曲线，为什么老是出现最后的那个错误呢？这个怎么解决呢？新手一枚，求指点……
> S<-read.xlsx("D:\\KB\\newbraindata.xlsx",1)
> S<-S[,-1]
> S$class<-factor(S$class)
> nrow(S)
[1] 58
> set.seed(123)
> ind <- sample.int(2, nrow(S), replace=TRUE, prob=c(0.9, 0.1))
> traindata <-S[ind==1,]
> testdata <-S[ind==2,]
> svm.model<-svm(class~.,traindata,scale= TRUE)
> pred<-predict(svm.model,testdata,type="prob")
> pred1<-prediction(pred,testdata$class)
Error in prediction(pred, testdata$class) :
Format of predictions is invalid.