Nothing
CIptKM <-
function (z, conf) {
upper <- sqrt (z$v / z$N) * z$S * qnorm ((1 + conf) / 2)
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.