Nothing
sigma12 <- function (sigma) {
temp <- eigen(sigma)
sigma12 <- temp$vectors %*% diag(temp$values^0.5) %*% t(temp$vectors)
sigma12
}
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.