Nothing
getP2<-function(pG,combine="fisher"){
#given a pG returns two equal p-values such as combfunc(p1,p2)=pG
if(combine=="fisher"){
ch=qchisq(pG,4,lower.tail = FALSE)
return(sqrt(exp(-ch/2)))
}
if(combine=="norminv"){
return(pnorm(qnorm(pG)*sqrt(2)/2))
}
}
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.