Nothing
gnomon_inf <-
function(dx, dy, marks, par=list(a=1, b=4, smark=1)) {
# Gnomonic influence functions s - b R^a
with(as.list(par),
pmax(0, marks[[smark]] - b * (dx^2 + dy^2)^(a/2))
)
}
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.