Nothing
`TDT.pvalue` <-
function(pP,qP, pX,xX,qX, pQ,qQ, exact = FALSE) #Spielman
SMN.pvalue(pP+(2*pX+xX)+pQ, qP+(2*qX+xX)+qQ, exact = exact) # (1993)
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.