Nothing
expm <- function(x, t=1)
{
if (nrow(x) != ncol(x))
stop("Matrix exponentiation is only defined for square matrices.")
ret <- expokit_dgpadm_Qmat(Qmat=x, t=t, transpose_needed=TRUE)
return( ret )
}
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.