Displaying 5 results from an estimated 5 matches for "c2tx".
2003 Jul 16
1
The two chisq.test p values differ when the contingency table is transposed! (PR#3486)
...hi
Version: 1.7.0
OS: Windows XP Professional
Submission from: (NULL) (149.142.163.65)
> x
[,1] [,2]
[1,] 149 151
[2,] 1 8
> c2x<-chisq.test(x, simulate.p.value=T, B=100000)$p.value
> for(i in (1:20)){c2x<-c(c2x,chisq.test(x,
simulate.p.value=T,B=100000)$p.value)}
> c2tx<-chisq.test(t(x), simulate.p.value=T, B=100000)$p.value
> for(i in (1:20)){c2tx<-c(c2tx,chisq.test(t(x), simulate.p.value=T,
+ B=100000)$p.value)}
> cbind(c2x,c2tx)
c2x c2tx
[1,] 0.03711 0.01683
[2,] 0.03717 0.01713
[3,] 0.03709 0.01609
[4,] 0.03833 0.01657
[5,] 0.0369...
2003 Jul 15
0
Why two chisq.test p values differ when the contingency
...should be t(x) )
>
> > x
> [,1] [,2]
> [1,] 149 151
> [2,] 1 8
> > c2x<-chisq.test(x, simulate.p.value=T, B=100000)$p.value
> > for(i in (1:20)){c2x<-c(c2x,chisq.test(x, simulate.p.value=T,
> + B=100000)$p.value)}
> > c2tx<-chisq.test(t(x), simulate.p.value=T, B=100000)$p.value
> > for(i in (1:20)){c2tx<-c(c2tx,chisq.test(t(x), simulate.p.value=T,
> + B=100000)$p.value)}
> > cbind(c2x,c2tx)
> c2x c2tx
> [1,] 0.03727 0.01629
> [2,] 0.03682 0.01662
>...
2003 Jul 15
1
Why two chisq.test p values differ when the contingency table is transposed?
I'm using R1.7.0 runing with Win XP. Thanks,
...Tao
????????????????????????????????????????????????????????
>x
[,1] [,2]
[1,] 149 151
[2,] 1 8
>t(x)
[,1] [,2]
[1,] 149 1
[2,] 151 8
>chisq.test(x, simulate.p.value=T, B=100000)
Pearson's Chi-squared test with simulated p-value (based on 1e+05
replicates)
data: x
X-squared = 5.2001, df =
2003 Aug 21
0
The two chisq.test p values differ when the contingency table (PR#3896)
...t; From: shitao@ucla.edu
>>> x
>> [,1] [,2]
>> [1,] 149 151
>> [2,] 1 8
>>> c2x<-chisq.test(x, simulate.p.value=T, B=100000)$p.value
>>> for(i in (1:20)){c2x<-c(c2x,chisq.test(x,
>> simulate.p.value=T,B=100000)$p.value)}
>>> c2tx<-chisq.test(t(x), simulate.p.value=T, B=100000)$p.value
>>> for(i in (1:20)){c2tx<-c(c2tx,chisq.test(t(x), simulate.p.value=T,
>> + B=100000)$p.value)}
>>> cbind(c2x,c2tx)
>> c2x c2tx
>> [1,] 0.03711 0.01683
>> [2,] 0.03717 0.01713
> The proble...
2017 Dec 28
1
Numerical stability in chisq.test
> On 28 Dec 2017, at 13:08 , Kurt Hornik <Kurt.Hornik at wu.ac.at> wrote:
>
>>>>>> Jan Motl writes:
>
>> The chisq.test on line 57 contains following code:
>> STATISTIC <- sum(sort((x - E)^2/E, decreasing = TRUE))
>
> The preceding 2 lines seem relevant:
>
> ## Sorting before summing may look strange, but seems to be
>