> library(ROCR) > library(e1071)svmres.prob <- svm(traindx, traindy, probability=TRUE) svmpred.prob <- predict(svmres.prob, testdx, probability = TRUE, decision.values = TRUE, type="prob")> print(length(attr(svmpred.prob, "probabilities")))[1] 0> print(attr(svmpred.prob, "probabilities"))NULL> print(attributes(svmpred.prob)$decision.values)/ 1 -0.54976883 2 -0.19255459 3 -0.05190025 [[alternative HTML version deleted]]