Nothing
supplbasis <-
function(A,B,tol=sqrt(.Machine$double.eps)) {
if (qr(A,tol=tol)$rank < qr(cbind(A,B),tol=tol)$rank) return(basis(B-projector(A,tol=tol)%*%B))
else return(NULL)
}
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.