Nothing
sinv <- function(x)
{
x <- copy_matrix(x, "double")
n <- as.integer(ncol(x))
.Call(R_sinv, x, n, PACKAGE = "lmeVarComp")
matrix(x, n, n)
}
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.