Nothing
# based on ideas by Miquel-Angel Garcia-Lopez
gwr.tricube <- function (dist2, d) {
d3 <- d^3
dist3 <- dist2^1.5
w <- ifelse(dist3 > d3, 0, (1-(dist3/d3))^3)
w
}
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.