Nothing
seqCI = function(bi, ti, Zval, conf.level=0.95)
{
bi[length(bi)] = Zval
target = 0.5 + c(-1, 1)*conf.level/2
LL = Drift(bi, ti, target[1])
UL = Drift(bi, ti, target[2])
return(c(lower=LL, upper=UL))
}
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.