Nothing
positive.svd <-
function(m, tol)
{
s = svd(m)
if( missing(tol) )
tol = max(dim(m))*max(s$d)*.Machine$double.eps
Positive = s$d > tol
return(list(
d=s$d[Positive],
u=s$u[, Positive, drop=FALSE],
v=s$v[, Positive, drop=FALSE]
))
}
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.