Nothing
my.format.pval <- function(p, digits){
gsub("^0\\.", ".", format.pval(pv = round(p, digits), digits = digits, scientific = 7L))
}
pure_all.equal <- function(tgt, cur){
return(isTRUE(all.equal.numeric(tgt, cur, check.attributes = FALSE)))
}
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.