Nothing
### R code from vignette source 'rateratio.test.Rnw'
###################################################
### code chunk number 1: rateratio.test.Rnw:23-26
###################################################
library(rateratio.test)
n<-17877
m<-16660
###################################################
### code chunk number 2: rateratio.test.Rnw:38-39
###################################################
rateratio.test(c(2,9),c(n,m))
###################################################
### code chunk number 3: rateratio.test.Rnw:128-134
###################################################
n<-17877
m<-16674
rateratio.test(c(2,9),c(n,m))$conf.int
b.ci<-binom.test(2,2+9,p=n/(n+m))$conf.int
theta.ci<-m*b.ci/(n*(1-b.ci))
theta.ci
###################################################
### code chunk number 4: rateratio.test.Rnw:137-140
###################################################
R.Version()$version.string
rateratio.test(c(2,9),c(n,m))
binom.test(2,2+9,p=n/(n+m))
###################################################
### code chunk number 5: rateratio.test.Rnw:146-147
###################################################
fisher.test(matrix(c(2,9,n-2,m-9),2,2))
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.