Nothing
controlSpATS <-
function(
maxit = 200,
tolerance = 1e-3,
monitoring = 2,
update.psi = FALSE,
update.psi.gauss = TRUE)
list(maxit = maxit, tolerance = tolerance, monitoring = monitoring, update.psi = update.psi, update.psi.gauss = update.psi.gauss)
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.