```
#' Test if you can invert a matrix
#'
#' @param t a matrix
#'
#' @return True or false
cant.solve <- function(m) class(try(solve(m),silent=T))!="matrix"
```

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.