R/printAUC.R

In shuangsong0110/EBPRS: Derive Polygenic Risk Score Based on Emprical Bayes Theory

#' @import methods

printAUC <- function(S,testy){
  #library(ROCR)
  pred <- prediction(S, testy)
  auc <- performance(pred,'auc')
  auc=unlist(slot(auc,"y.values"))
  if(auc<0.5){
    pred <- prediction(S, -testy)
    auc <- performance(pred,'auc')
    auc=unlist(slot(auc,"y.values"))
  }
  return(auc)
}