edges <-
function(plants, width) {
# Expand or contract window, to handle edge effects
if(width < 0)
return(plants[erosion(as.owin(plants), -width)])
if(width > 0)
return(periodify(plants)[dilation(as.owin(plants), width)])
return(plants)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.