Nothing

```
x <- as.matrix(c(3,1)) # vector as column matrix
A <- rbind(c(5,2),c(3,1))
Ainv <- solve(A); Ainv # solve() computes inverse
A %*% Ainv
Ainv %*% A
Ainv %*% x # solution to system
```

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