# computes a Mann-Whitney estimator of P(X>Y)
# based on row averages of two data matrices
auc.averages <- function(X,Y){
p <-mw.outer.matrix(rowMeans(X),rowMeans(Y))
return(p)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.