Nothing
multinom.stat <-
function(obs,pop=1,zloc)# obs are the categorical data
{
fobs=factor(obs,levels=unique(obs))
Ck=table(fobs);C=sum(Ck)
Ckz=table(fobs[zloc]);CZ=sum(Ckz)
xz=Ckz*log(Ckz/CZ)+(Ck-Ckz)*log(((Ck-Ckz)/(C-CZ)))-Ck*log(Ck/C)
xz[is.nan(xz)]=0
t.stat=sum(xz)
p1=(Ckz/CZ);p10=(Ck-Ckz)/(C-CZ)
#equivalent to minimize vz
return(c(t.stat,p10,p1))
}
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.