Nothing
myinv <-
function(A){
A_svd<-fast.svd(A)
if(length(A_svd$d)==1){
A_inv<-A_svd$v%*%as.matrix(1/A_svd$d)%*%t(A_svd$u)
}else{
A_inv<-A_svd$v%*%diag(1/A_svd$d)%*%t(A_svd$u)
}
return(A_inv)
}
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.