Nothing
.fx <- function(refmat,M,coefs,time=TRUE,threads=1) {
M <- cbind(1,M)
splM <- .Call("tpsfx",refmat, M, t(coefs),threads)
return(splM)
}
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.