Displaying 1 result from an estimated 1 matches for "predid".
Did you mean:
pred_d
2006 Nov 24
1
How to find AUC in SVM (kernlab package)
...ere is a simple example:
library(MASS)
library(kernlab)
library(ROCR)
pimamodel <- ksvm(type ~ .,data=Pima.tr,type="C-svc",C=10,prob.model=TRUE)
pimamodel
fitted(pimamodel)
pima.pred <- predict(pimamodel, Pima.te[,-8], type="probabilities")
pima.pred
# try to find AUC
#predid.no <- prediction(pima.pred[,1], Pima.te[,8])
#predid.yes <- prediction(pima.pred[,2], Pima.te[,8])
predid <- prediction(pima.pred, Pima.te[,8])
perfid <- performance(predid,"tpr","fpr")
perfid.auc <- performance(predid,"auc")
perfid.auc
Thank you very...