Nothing
mixmat <-
function(p = 2)
{
a <- matrix(rnorm(p * p), p, p)
sa <- svd(a)
d <- sort(runif(p) + 1)
mat <- sa$u %*% (sa$v * d)
attr(mat, "condition") <- d[p]/d[1]
mat
}
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.