Nothing
delta.QQ <-
function(model,alpha=.1,ln=FALSE)
sapply(as.list(model$x.info[,'Emp']),function(h)
distr(c(alpha/2,1-alpha/2),'norm',as.numeric(delta.Q(h,model,ln)),type='q'))
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.