core <-
function(plants, distance) {
# TRUE for plants at more than the given distance from the edge
inside.owin(x = plants, w = erosion(as.owin(plants), distance))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.