.crossDiff <- function(a, b){
amat <- matrix(a, length(a), length(b))
bmat <- matrix(b, length(a), length(b), byrow=TRUE)
bmat-amat
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.