rve <- function(x, y=NULL) {
# Performs a one-sided Wilcox test:
stat <- wilcox.test(x, y, alternative = "g") # greater
stat
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.