Nothing
rejectprob<-function(pe,ps,n1,n2,r1,z)
{
p1=pe
p0=ps
l1=r1
t2=z
return(rejprob(p1, p0, l1, n1, n2, t2))
}
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.