invall <- function(X) { indmginv <- min(svd(X)$d) < 1e-10 if(indmginv == TRUE) mginv(X) else(solve(X)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.