Nothing
cor.arma = function(mod) {
aa <- mod$var.coef
bb <- diag(diag(aa) ^ (-.5))
cc <- bb %*% aa %*% bb
dimnames(cc) <- dimnames(aa)
cc
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.