############## Using the Fisher test(3.96), GLR(3.100), ANT (3.106) 
############## for whiteness for a few examples in Chap 4.

############### DATA SET:  fig44a.dat 
fig44a.dat <- scan("fig44a.dat")
fishertest(fig44a.dat)
       #### $Fisher.stat:  3.839684
       #### $P.value:      0.6587089
aneyman(fig44a.dat,k=4)
	####	mhat:        39
        ####    ANT:         -1.7052,    P-value: 0.8876 (n = 46)
	####    Chisq:       48.92512    P-value: 0.3564564


############### DATA SET:  fig44b.dat 
fig44b.dat <- scan("fig44b.dat")
fishertest(fig44b.dat)
       #### $Fisher.stat:  3.492649
       #### $P.value:      0.7815086
aneyman(fig44b.dat,k=3)
	####	mhat:        39
        ####    ANT:         -2.009721,  P-value:  0.93036 (n = 47)
	####    Chisq:       44.70863    P-value:  0.5679579


############### DATA SET:  fig46a.dat 
fig46a.dat <- scan("fig46a.dat")
fishertest(fig46a.dat)
       #### $Fisher.stat:  6.335835
       #### $P.value:      0.2333691
aneyman(fig46a.dat,k=0)
	####	mhat:        42
        ####    ANT:         4.145682,   P-value:  0.04204000 (n = 50)
	####    Chisq:       81.21473    P-value:  0.003444307

############### DATA SET:  fig46b.dat 
fig46b.dat <- scan("fig46b.dat")
fishertest(fig46b.dat)
       #### $Fisher.stat:  6.417925
       #### $P.value:      0.217143
aneyman(fig46b.dat,k=0)
	####	mhat:        42
        ####    ANT:         5.779357,   P-value:  0.01469000 (n = 50)
	####    Chisq:       93.89912    P-value:  0.000170053