Nothing
#[export]
pois.test <- function(y, logged = FALSE) {
stat <- ( Rfast::Var(y)/mean(y) - 1) * sqrt( 0.5 * (length(y) - 1) )
pval <- 2 * pnorm(abs(stat), lower.tail = FALSE, log.p = logged)
c(stat, pval)
}
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.