Nothing
qp.approx <-
function(q, q.00){
Q.00=q.00
EQ=mean(Q.00)
VQ=var(Q.00)
kappa=VQ/(2*EQ)
nu=2*(EQ)^2/VQ
return(p=pchisq(q/kappa, df=nu, lower.tail=F))
}
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.