R/roc.R

In markvdwiel/GRridge: Better prediction by use of co-data: Adaptive group-regularized ridge regression

roc <-
function(probs,true,cutoffs){  
    if(cutoffs[2] >= cutoffs[1]){
      print("ERROR: cut-offs needs to be a DECREASING vector")
      return(NULL)
    } else {
    rocs <- sapply(cutoffs, .rocaux, probs=probs, true=true)
    return(rocs)
    }
}