Nothing
zORml <- function(dat, conf.level){
mOR.tmp <- suppressWarnings(fisher.test(dat, conf.int = TRUE, conf.level = conf.level))
mOR.p <- as.numeric(mOR.tmp$estimate)
mOR.l <- as.numeric(mOR.tmp$conf.int)[1]
mOR.u <- as.numeric(mOR.tmp$conf.int)[2]
c(mOR.p, mOR.l, mOR.u)
}
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.