R/mw.outer.R

In blebedenko/ME-AUC: Estimate AUC in ME Models - our functions

# gets as input two vectors colX, colY
# returns the MW estimator of P(X>Y)
# to be used in simex.auc.MW etc.

mw.outer <- function(colX,colY){
  
  return(mean(outer(colX,colY,">")))
}