Commit a1f9e505 authored by Jakob Wirbel's avatar Jakob Wirbel

explicity state direction for AUC computation in feature selection approach within train.model.

parent 84c5d1cc
......@@ -397,7 +397,7 @@ measureAUPRC <- function(probs, truth, negative, positive) {
get.single.feat.AUC <- function(x, label, pos, neg) {
x.p <- x[label == pos]
x.n <- x[label == neg]
temp.auc <- roc(cases=x.p, controls=x.n)$auc
temp.auc <- roc(cases=x.p, controls=x.n, direction='<')$auc
return(temp.auc)
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment