Nothing
MPbinomial <-
function(Hp, Kp, alpha,n) {
if(Hp<Kp){
k <- min(which((1-pbinom(0:n,size=n,prob=Hp))<alpha))-1
gamma <- (alpha-1+pbinom(k,size=n,prob=Hp))/dbinom(k,size=n,prob=Hp)
return(list=c(k,gamma))
}
else {
k <- max(which((pbinom(0:n,size=n,prob=Hp))<alpha))
gamma <- (alpha-pbinom(k-1,size=n,prob=Hp))/dbinom(k,size=n,prob=Hp)
return(list=c(k,gamma))
}
}
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.