Nothing
F_inv_code <-
function(p, w, mean, sd, br = c(-1000,1000)) {
G <- function(x) F_code(x, w, mean, sd) - p
res <- uniroot(G,br)$root
res
}
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.