Nothing
plot.geostas <- function(x, at=seq(0, 1, 0.1), main="AMSM with Domain Assignment",
col.regions=rev(heat.colors(200)),
margin.segments=x$grps, ...) {
plot.dccm(x$amsm, at=at, main=main,
col.regions=col.regions,
margin.segments=margin.segments, ...)
}
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.