Nothing
gwr.bisquare <- function(dist2, d) {
d2 <- d^2
w <- ifelse(dist2 > d2, 0, (1 - (dist2/d2))^2)
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.