NB. Chi square NB. Suzuki J言語による統計分析 1996  P59 chigf=: 3 : '(+/ *: y - e0 ) % e0=. mean y' NB. Usage: chigf 12 8 10 13 8 9 NB. 2.2// OK mean=: +/ % # chitr=: 4 : ' (+/ y * *: p-q) % q * -. q=. mean p=. x %y' NB.DATAblock Suzuki p61 X0=:534 746 784 705 443 299 70 Y0=: 150 250 264 302 238 176 36 NB. Usage: Y0 chitr X0 NB. 158.702 //OK testgf=: 4 : ' +/ (*: y -t)%t=. x * +/ y' P0=: (1.06 % 2.06),1%2.06 NB. P0 NB. 0.514563 0.485437 NB. Usage: P0 testgf 480 420 NB. 1.26943 // OK chic=: 3 : '(+/ ,y)*(*: det y) % */ (+/ "1 y) , +/ y' det=: -/ . * D0=: 304 104,: 353 166 NB. Usage: chic D0 NB. 4.66718 // OK NB. general chic testc=: 3 : 0 p=.,(+/ "1 y) */ +/ y +/ (*: p-(*+/),y)%p*+/ ,y ) NB. Usage: testc D0 NB. 4.66718 // OK