Nothing
fortify.bathy <- function(model, data, ...) {
# Convert an object of class bathy into a data.frame, for ggplot
# x object of class bathy
x <- as.xyz(model)
names(x) <- c("x", "y", "z")
return(x)
}
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.