In [1]:

    

dat <- matrix(c(10, 15, 40, 135), nrow=2)
dat


    

    
Out[1]:






	
10
40
	
 15
135

In [2]:

    

chisq.test(dat, correct=FALSE)


    

    
Out[2]:





	Pearson's Chi-squared test

data:  dat
X-squared = 3.4286, df = 1, p-value = 0.06408

In [3]:

    

chisq.test(dat, correct=False, simulate.p.value=TRUE, B=10000)


    

    
Out[3]:





	Pearson's Chi-squared test with simulated p-value (based on 10000
	replicates)

data:  dat
X-squared = 3.4286, df = NA, p-value = 0.08099

In [4]:

    

dat2 <- 2*dat
dat2


    

    
Out[4]:






	
20
80
	
 30
270

In [5]:

    

chisq.test(dat2, correct=FALSE)


    

    
Out[5]:





	Pearson's Chi-squared test

data:  dat2
X-squared = 6.8571, df = 1, p-value = 0.008829

In [6]:

    

chisq.test(dat2, correct=False, simulate.p.value=TRUE, B=10000)


    

    
Out[6]:





	Pearson's Chi-squared test with simulated p-value (based on 10000
	replicates)

data:  dat2
X-squared = 6.8571, df = NA, p-value = 0.0129

In [ ]: