Nothing
CombCIppv <-
function(x0, x1, p, conf.level=0.95,
alternative=c("two.sided", "less", "greater"))
{
if(any(x0==0)||any(x1==0))
{return(CIlppvak(x0=x0, x1=x1, p=p, conf.level=conf.level,
alternative=alternative))}
else{return(CIlppv(x0=x0, x1=x1, p=p, conf.level=conf.level,
alternative=alternative))
}}
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.