R/mw.outer.matrix.R

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

# receives two matrices X, Y with equal number of columns
# applies mw.outer on the i=1,...,W column

mw.outer.matrix <- function(X,Y){
  
  u <- numeric()
  
  for(i in 1:ncol(X)){
    u[i] <- mean(mw.outer(X[,i],Y[,i]))
  }
  
  return(mean(u))
}