Nothing
solveSPD <- function(a){
##.Call("La_chol2inv", .Call("La_chol", a, PACKAGE = "base"), ncol(a), PACKAGE = "base")
##chol2inv(chol(a))
.Call("C_spdinv_arma", a , PACKAGE="gRbase" )
}
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.