Nothing
CIefrKM <-
function (z, obs, conf) {
upper <- sqrt (z$v[sum (z$t <= obs)] / z$N) * z$S * qSupBrnMotn (conf)
upper[z$t > obs] <- NA
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.