# Product (p.values for test is the same as Fisher's test)
getProd <- function (x) { # Compute product statistic
return(exp(rowSums(log(x))))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.