Nothing
"contour.asc" <- function(x, ...)
{
## Verifications
if (!inherits(x, "asc")) stop("not an \"asc\" object")
if (attr(x, "type")=="factor")
stop("function contour cannot be used with factors")
## Use of the function contour
z<-x
xy<-getXYcoords(z)
x<-xy$x
y<-xy$y
contour(x=x, y=y, z, ...)
}
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.