Nothing
CombinePvals <-
function(nb.est=nb.est){
p=nb.est$pBLess.DES
p.other= 1- p
dLBLess=split(p, nb.est$ID)
dLALess=split(p.other,nb.est$ID)
pBLess=sapply(dLBLess,function(s) stouffer(pmax(1.0e-8,pmin(s,0.99999))))
pALess=sapply(dLALess,function(s) stouffer(pmax(1.0e-8,pmin(s,0.99999))))
pval.nb=2*pmin(pBLess,pALess) # two-sided p
res.NB=cbind.data.frame(ID=names(pBLess),p.nb=pval.nb)
return(res.NB)
}
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.