summary.sphwin <- function(object, ...) {
stopifnot(inherits(object, "sphwin"))
print.sphwin(object)
print(cat("\n", "Window area: ", area.sphwin(object), " square units.", "\n"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.