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.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.