> 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]]
______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
