Nothing
propPval <- function(..., method=c('binom.test', 'prop.test')) {
if (is.character(method)) {
method <- match.arg(method)
}
switch( method,
prop.test = pval(prop.test(...)),
binom.test = pval(binom.test(...)),
)
}
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.