Nothing
eigenkronecker <- function(x, n) {
e <- eigen(x, symmetric=TRUE, only.values=FALSE)
d <- e$values
v <- e$vectors
D <- rep(d, each=n)
V <- kronecker(v, diag(n))
list(values=D, vectors=V)
}
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.