Nothing
pvalues <- function(jtGWAS.object)
{
if(attr(jtGWAS.object,'standardized'))
return(2*pnorm(-abs(jtGWAS.object$J)))
else
stop("This function is only to be used with standardized results.")
}
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.