Nothing
`ipvaluePnPmLinCombChisq` <-
function(i, d2, pCommon, n, m, sigma, lambda, coefStat)
{
pvalueRestrictLinCombChisq(d2=d2[i], pCommon=pCommon[,i], n=n, m=m, lambda=lambda, coefStat=coefStat)
}
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.