Nothing
matrixrank <- function(x, tolerance=1e-8){
#this function returns the rank of the matrix
xsvd<-svd(x);
xd<-xsvd$d;
#rm(x.svd);
xtrued<-xd[abs(xd)>tolerance]
result<-length(xtrued)
return(result)
}
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.