## File Name: SRM_OUTER.R
## File Version: 0.03
SRM_OUTER <- function(x,y)
{
n <- length(x)
m <- length(y)
XX <- matrix(x, nrow=n, ncol=m, byrow=FALSE)
YY <- matrix(y, nrow=n, ncol=m, byrow=TRUE)
z <- XX*YY
return(z)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.