Nothing
inv <-
function (a)
{
if(!any(is.na(a)))
#Find the upper triangular matrix of X and estimate the inverse
#of X from this matrix
chol2inv(chol(a))
else
#If NA values in matrix, return NA matrix
matrix(NA, nrow = dim(a)[1], ncol = dim(a)[2])
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.