## robust matrix inversion
.solvenear <- function(x) {
xinv <- try(solve(x), silent = TRUE)
if (inherits(xinv, "try-error"))
xinv <- as.matrix(solve(Matrix::nearPD(x)$mat))
xinv
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.