Displaying 1 result from an estimated 1 matches for "myvaliddata".
2010 Sep 30
1
Can this code be written more efficiently?
...ot;C-classification", kernel = "radial",
cost = mygrid[i,1], gamma = mygrid[i,2],
probability=TRUE)
})
### Predict on test set
pred.step3 <- numeric(length(svm.models))
for (i in 1:length(svm.models)) {
pred.step1 <- predict(svm.models[[i]], myvaliddata, decision.values = F,
probability=T)
pred.step2 <-
prediction(predictions=attr(pred.step1,"probabilities")[,1],
labels=myvaliddata$churn)
pred.step3[i] <- performance(pred.step2, "auc")@y.values[[1]]
}
pred.step3
####End Code####
Thanks,
Leo.
_______...