Nothing
matrixsqrt <- function(S, tol = sqrt(.Machine$double.eps))
{
## Square root of a Matrix
s <- svd(S)
nz <- s$d > tol
S12=s$u[, nz] %*% diag(sqrt(s$d[nz])) %*% t(s$v[, nz])
return(S12)
}
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.