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.