Nothing
CIhwKM <-
function (z, conf) {
K <- z$v / (1 + z$v)
upper <- z$S / sqrt (z$N) / (1 - K) * qSupBrnBrdg (conf)
list (t=z$t, maxt=z$maxt, lower=z$S-upper, upper=z$S+upper, S=z$S)
}
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.