Nothing
GRI <- function (o, p) {
N(o, p)
expr <- sqrt(mean(((p - o) / (p + o))^2))
GRI <- (1 + expr) / (1 - expr)
GRI
}
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.