Nothing
pKS <- function(q) c(.Call("pKS2", q, tol = 10^(-6)))
qKS <- function(p) {
pKSm <- function(y) return(pKS(y)-p)
quan <- uniroot(pKSm, lower = 0.2, upper = 3)
res <- quan$root
return(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.