In [1]:
dat <- matrix(c(10, 15, 40, 135), nrow=2)
dat
Out[1]:
In [2]:
chisq.test(dat, correct=FALSE)
Out[2]:
In [3]:
chisq.test(dat, correct=False, simulate.p.value=TRUE, B=10000)
Out[3]:
In [4]:
dat2 <- 2*dat
dat2
Out[4]:
In [5]:
chisq.test(dat2, correct=FALSE)
Out[5]:
In [6]:
chisq.test(dat2, correct=False, simulate.p.value=TRUE, B=10000)
Out[6]:
In [ ]: