Nothing
# Computes x = A^+ * b using an SVD
# (slow but stable)
svdsolve <- function(A,b,rtol) {
s = svd(A)
di = s$d
ii = di>rtol
di[ii] = 1/di[ii]
di[!ii] = 0
return(list(x=s$v%*%(di*(t(s$u)%*%b)),q=sum(ii)))
}
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.