Nothing
is.included <-
function(B, A, tol1=sqrt(.Machine$double.eps), tol2=sqrt(.Machine$double.eps)) {
return(frob(B-A%*%ginv(A, tol=tol1)%*%B) / frob(B) < tol2)
}
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.