Nothing
"Dbinom" <-
function(y,ci,vtheta,wa,ni,f0,oi=0,kap=1e-6) {
if (missing(y)) messagena("y")
if (missing(ci)) messagena("ci")
if (missing(vtheta)) messagena("vtheta")
if (missing(wa)) messagena("wa")
if (missing(ni)) messagena("ni")
if (missing(f0)) messagena("f0")
n <- length(ni)
d <- single(n)
if(length(oi)==1) oi <- rep(0,n)
f.res <- .Fortran("dbinom",
y=to.single(y),
ci=to.single(ci),
vtheta=to.single(vtheta),
wa=to.single(wa),
ni=to.integer(ni),
f0=to.single(f0),
oi=to.single(oi),
n=to.integer(n),
kap=to.single(kap),
d=to.single(d))
list(d=f.res$d)
}
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.