# 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))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.