Nothing
`print.ecespa.marksum` <-
function(x,...)
{
cat("Mark-sum measure of the dataset", x$dataname, "\n computed for a radius R=",x$R,
", with a grid of", x$nx, "x",x$ny,".\n")
cat("Plot it to see the result.\n")
}
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.