home *** CD-ROM | disk | FTP | other *** search
/ PC Home 11 / PC_HOME_11.ISO / general / maths / gcemath / amc / am1408c.cha < prev    next >
Encoding:
Text File  |  1994-07-12  |  6.2 KB  |  255 lines
  1. .SET #8(*2, *)
  2. .LET (*#34=#34+#8*) TEXT
  3. .LET (*#22=#22+#6*)
  4. @LAB:SCREEN23
  5. .SCR 0
  6. .SNA(*(.INF 39)0*)
  7. .COL 7,0
  8. .LOC 2,46(*23*)
  9. .COL 0,3
  10. .LOC 5,11(* Yates' Correction for Continuity *)
  11. .PAU(**)#4
  12. .COL 10,0
  13. .LOC 8,12(*A large proportion of the Contingency Tables which you will*)
  14. .LOC 10,13(*meet will be 2 rows and 2 columns leading to 1 degree of*)
  15. .LOC 12,12(*freedom.  Those of you who recall the graphs of p(X²) shown*)
  16. .LOC 14,12(*in Module 14.7 will know that the curve is rather different*)
  17. .LOC 16,29(*for 1 degree of freedom.*)
  18. .SPE PLAY (*AM140817.SPE*) WAIT
  19. .PAU(**)#4
  20. .COL 0,3
  21. .LOC 24,64(*SPACE >>*)
  22. .PAU(**)
  23. @LAB:SCREEN24
  24. .SCR 2
  25. .SNA(*(.INF 39)2*)
  26. .LOC 2,46(*24*)
  27. .LOC 6,12(*This lead Yates to propose that a correction should be made*)
  28. .LOC 8,12(*to the values of*)
  29. .LOC 8,32(*O - E*)
  30. .LOC 8,42(*BEFORE*)
  31. .LOC 8,52(*they are squared by*)
  32. .LOC 10,33(*subtracting  0.5*)
  33. .PAU(**)#4
  34. .PUT 232,101 PART=6
  35. .LOC 14,34(*=*)
  36. .PUT 288,100 PART=11
  37. .LOC 13,40(*( O - E  - 0.5 )*)
  38. .PUT 440,93 PART=15
  39. .DRA (*C1BM316,108M443,108*)
  40. .LOC 15,47(*E*)
  41. .INV 13,48,7
  42. .PAU(**)#4
  43. .LOC 18,12(*Principally, this is to compensate for a discrete variable*)
  44. .LOC 20,21(*being simulated by a continuous variable.*)
  45. .SPE PLAY (*AM140818.SPE*) WAIT
  46. .PAU(**)#4
  47. .PUT 500,187 PART=4 PSET
  48. .PAU(**)
  49. @LAB:SCREEN25
  50. .SCR 0
  51. .SNA(*(.INF 39)0*)
  52. .COL 7,0
  53. .LOC 2,46(*25*)
  54. .COL 10,0
  55. .PAU(**)#4
  56. .LOC 6,11(*Indeed, there are those who*)
  57. .COL 12,0
  58. .PAU(**)#2
  59. .LOC 6,39(*ALWAYS*)
  60. .COL 10,0
  61. .PAU(**)#2
  62. .LOC 6,46(*subtract  0.5  FROM  O - E*)
  63. .LOC 8,11(*before squaring whenever a discrete variable is being tested for*)
  64. .COL 10,0
  65. .LOC 10,30(*Goodness of Fit.*)
  66. .COL 14,0
  67. .PAU(**)#4
  68. .LOC 15,12(*However, most authors reject the practice and these worksheets*)
  69. .LOC 17,14(*restrict the use of Yates' correction to the case where...*)
  70. .COL 10,0
  71. .PAU(**)#2
  72. .LOC 19,36(*v = 1.*)
  73. .SPE PLAY (*AM140819.SPE*) WAIT
  74. .COL 0,3
  75. .LOC 24,64(*C / R >>*)
  76. @SIN(*"C"=L:SCREEN26,"R"=L:-SCREEN23,"c"=L:SCREEN26,"r"=L:-SCREEN23*)
  77. @LAB:SCREEN26
  78. .SCR 2
  79. .SNA(*(.INF 39)2*)
  80. .LOC 2,46(*26*)
  81. .LOC 5,11(*An example:*)
  82. .PAU(**)#4
  83. .LOC 7,15(*In this table associating two criteria, is there evidence*)
  84. .LOC 9,15(*at the 5 % level that they are statistically independent ?*)
  85. .LOC 11,35(*Criteria B*)
  86. .LOC 12,34(*x           y        Totals*)
  87. .DRA (*C1BM220,80M220,144BM316,88M316,144BM404,88M404,144BM160,100M490,100BM160,132M490,132*)
  88. .LOC 14,15(*Criteria*)
  89. .LOC 16,18(*A*)
  90. .LOC 14,25(*a*)
  91. .LOC 16,25(*b*)
  92. .LOC 18,22(*Totals*)
  93. .LOC 14,33(*60*)
  94. .LOC 14,45(*40*)
  95. .LOC 14,56(*100*)
  96. .LOC 16,33(*30*)
  97. .LOC 16,45(*70*)
  98. .LOC 16,56(*100*)
  99. .LOC 18,33(*90*)
  100. .LOC 18,44(*110*)
  101. .LOC 18,56(*200*)
  102. .LOC 20,11(*Null Hypothesis:  Criteria A and Criteria B are independent.*)
  103. .PAU(**)#4
  104. .USE PROG=PAUSE.USE
  105. .LOC 2,46(*26a*)
  106. .WIP (4,2)-(23,79)#6
  107. .PAU(**)#4
  108. .LOC 17,15(*Calculate the expected frequencies using...*)
  109. .LOC 19,28(*Row Total x Column Total*)
  110. .LOC 20,28(*────────────────────────*)
  111. .LOC 21,33(*Grand Total*)
  112. .PAU(**)#4
  113. .LOC 8,31(*60  *)
  114. .LOC 10,31(*30  *)
  115. .LOC 8,43(*40  *)
  116. .LOC 10,43(*70  *)
  117. .LOC 12,31(*90  *)
  118. .LOC 12,42(*110   *)
  119. .LOC 8,54(*100   *)
  120. .LOC 10,54(*100   *)
  121. .LOC 12,54(*200   *)
  122. .DRA (*C1BM268,52M268,96BM364,52M364,96BM460,52M460,96*)
  123. .PAU(**)#4
  124. .LOC 8,37(*45*)
  125. .PAU(**)#4
  126. .LOC 10,37(*45*)
  127. .PAU(**)#4
  128. .LOC 12,37(*90*)
  129. .PAU(**)#4
  130. .LOC 8,49(*55*)
  131. .PAU(**)#4
  132. .LOC 10,49(*55*)
  133. .PAU(**)#4
  134. .LOC 12,48(*110*)
  135. .PAU(**)#4
  136. .LOC 8,60(*100*)
  137. .PAU(**)#4
  138. .LOC 10,60(*100*)
  139. .PAU(**)#4
  140. .LOC 12,60(*200*)
  141. .PAU(**)#4
  142. .USE PROG=PAUSE.USE
  143. .WIP (15,2)-(23,79)
  144. .LOC 2,46(*26b*)
  145. .PAU(**)#2
  146. .PUT 80,125 PART=6
  147. .LOC 17,14(*=*)
  148. .LOC 16,16(*(60-45-0.5)*)
  149. .PUT 207,117 PART=15
  150. .DRA (*C1BM124,132M208,132*)
  151. .LOC 18,21(*45*)
  152. .PAU(**)#4
  153. .LOC 17,29(*+*)
  154. .LOC 16,31(*(40-55-0.5)*)
  155. .PUT 327,117 PART=15
  156. .DRA (*C1BM244,132M329,132*)
  157. .LOC 18,36(*55*)
  158. .PAU(**)#4
  159. .LOC 17,44(*+*)
  160. .LOC 16,46(*(30-45-0.5)*)
  161. .PUT 446,117 PART=15
  162. .DRA (*C1BM364,132M448,132*)
  163. .LOC 18,51(*45*)
  164. .PAU(**)#4
  165. .LOC 17,59(*+*)
  166. .LOC 16,61(*(70-55-0.5)*)
  167. .PUT 566,117 PART=15
  168. .DRA (*C1BM484,132M568,132*)
  169. .LOC 18,66(*55*)
  170. .SPE PLAY (*AM140820.SPE*) WAIT
  171. .PAU(**)#4
  172. .LOC 20,14(*=    4.672     +    4.368     +    5.339     +    3.823*)
  173. .PAU(**)#4
  174. .LOC 22,14(*=    18.20*)
  175. .PAU(**)#4
  176. .USE PROG=PAUSE.USE
  177. .WIP (15,14)-(16,79)
  178. .WIP (16,14)-(23,79) #5
  179. .LOC 2,46(*26c*)
  180. .PAU(**)#2
  181. .PUT 240,127 PART=7
  182. .LOC 17,34(*=  (2 - 1).(2 - 1)  =  1*)
  183. .PAU(**)#4
  184. .LOC 19,11(*Enter the*)
  185. .PUT 168,141 PART=6
  186. .LOC 19,25(*table at*)
  187. .PUT 272,143 PART=7
  188. .LOC 19,38(*=  1, level 5 %*)
  189. .PAU(**)#4
  190. .LOC 19,58(*»   3.84*)
  191. .PAU(**)#4
  192. .LOC 21,11(*18.20  ≥  3.84  so our Null Hypothesis is rejected.*)
  193. .PAU(**)#4
  194. .USE PROG=PAUSE.USE
  195. .WIP (15,2)-(23,79) #3
  196. .LOC 2,46(*26d*)
  197. .PAU(**)#2
  198. .LOC 20,11(*Refer again to the X² table : the null hypothesis would*)
  199. .LOC 22,18(*still be rejected at the 0.05 % level.*)
  200. .PAU(**)#4
  201. .USE PROG=PAUSE.USE
  202. .WIP (19,2)-(23,79)
  203. .LOC 20,11(*Conclusion:     there is evidence that Criteria A and*)
  204. .LOC 22,27(*Criteria B are not independent.*)
  205. .PUT 500,187 PART=2 PSET
  206. @SIN(*"C"=L:SCREEN27,"R"=L:-SCREEN26,"c"=L:SCREEN27,"r"=L:-SCREEN26*)
  207. @LAB:SCREEN27
  208. .COL 0,0
  209. .SCR 1
  210. .SNA(*(.INF 39)1*)
  211. .COL 8
  212. .PAL 1
  213. .LOC 2,23(*27*)
  214. .LOC 7,5(*At this point in the full version*)
  215. .LOC 9,9(*of the program the user is*)
  216. .LOC 11,5(*requested to complete a worksheet*)
  217. .LOC 13,6(*for this section, entering the*)
  218. .LOC 15,7(*results via the keyboard onto*)
  219. .LOC 17,9(*the computer for checking.*)
  220. .PAU(**)#4
  221. .LOC 19,6(*Type C <enter> to continue.*)
  222. .SET #10(*SCREEN28*)
  223. .USE PROG=PRESSC.USE
  224. @LAB:SCREEN28
  225. .COL 0,0
  226. .SCR 1
  227. .SNA(*(.INF 39)1*)
  228. .COL 8
  229. .PAL 1
  230. .LOC 2,23(*28*)
  231. .LOC 6,4(*However, in this demonstration the*)
  232. .LOC 8,7(*results checking facility is*)
  233. .LOC 10,4(*unavailable, so you will continue to*)
  234. .LOC 12,6(*the next phase of the tutorial.*)
  235. .PAU(**)#4
  236. .LOC 18,6(*Type C <enter> to continue.*)
  237. .SET #10(*SCREEN29Z*)
  238. .USE PROG=PRESSC.USE
  239. @LAB:SCREEN29Z
  240. .WIP (20,2)-(23,39)
  241. .PAU(**) #4
  242. .COL 1,
  243. .LOC 14,8(*Do you wish to:*)
  244. .COL 2,
  245. .LOC 16,4(*(C) continue to the next Part*)
  246. .LOC 18,4(*(R) return to the Contents page*)
  247. .COL 1,
  248. .LOC 20,8(*Please type C or R >*)
  249. .COL 3,
  250. @SIN (*"C"=C:AM1408D.CHA,"c"=C:AM1408D.CHA,"R"=L:BACKB,"r"=L:BACKB*)
  251. @LAB:BACKB
  252. @GOB:SCREEN09 PROG=AM1408
  253.  
  254.  
  255.