Category : Miscellaneous Language Source Code
Archive   : EPISTAT.ZIP
Filename : MHCHISQR.BAS

ÿª
:Ù MANTEL-HAENSZEL CHI-SQUARE TESTä:Ù Written by Tracy L. Gustafson, M.D.:Ù Round Rock, Texas. Version 3.0, 1984<• § ‰ ˆ:þŒ ½ "EPIMRG",j„ "MANTEL-HAENSZEL CHI-SQUARE TEST",20,33«‘ Î
);:… "Enter NAME of the factor you wish to TEST: ",DTú#‘ Î);:… "Enter NAME of the related factor you wish to CONTROL FOR: ",DCL(‘:‘ DT;" must be a dichotomous variable, but ";DC;" may have > 2 categories."Š-‘ Î );"How many categories does ";DC;:… " have? ",CL:‘Å2‘:‘ Î );"CASES";Î7);"CONTROLS": ‘" ";DC;" CATEGORY";û7‘ Î);"+";DT;Î$);"-";DT;Î2);"+";DT;Î=);"-";DT<‘ Ö(,Ä);Î);Ö(0,Ä)/ANç:SAç:SBç:SNçRF‚ Zç Ì CL:ARçÛ:Ê AR,:…;"",A$œKACç: ª:BAçI:ACç&: ª:BBçI:ACç4: ª:BCçI:ACç?: ª:BDçI:‘ÊPNçBAéBBéBCéBD:SAçSAéBAëBDìN:SBçSBéBBëBCìNUSNçSNé(BAéBB)ë(BAéBC)ë(BCéBD)ë(BBéBD)ì(NëNë(Nê))
Zƒ Z:‘1_Xçÿ†(SAêSB)ê€:XçXëXìSN:V1çCLêjd¿ CLR2,CLR1:‘ Î
);"CHI-SQUARE = ";X;Î();"df =";V1;˜i‹ Xè ï V1æ Í JçV1ìê:Rç :¡ Pç:‰ ‡Án‚ Bç Ì ÿ…(V1ìê€):RçRëJ:JçJê:ƒás‹ V1 ó èæ Í RçRë"­º³ÃßbxSç:Iç:VCçV1é:Kç((Xì)í(V1ì))ëì(ÿ‹(Xì)ëRëV1)B}IçIëXìVC:SçSéI:VCçVCé:‹ Iæ_B" Í }N‚PçêKëSx‡þ“ "O2 MB MS T120 L16 D-P8A-P8 L3 D-"®Œ‘ Î7);"p = ";:‹ Pè½7m Í ‘ "< 10 (-6)"; :¡ ‘ P;Å‘‘ ÎI):¿ CLR1,CLR2–‘:‘:‘ Î);"ODDS RATIO = ";:‹ SBç Í ‘ "not calculable":‰  v›XOçSAìSB:XPçGázìÿ‡(X):‘ XO;Î
);"95% Confidence limits: ";ÿ‹((êXP)ëÿŠ(XO));" and ";ÿ‹((éXP)ëÿŠ(XO))ß Ê ,:…;"Do you want to calculate another Mantel-Haenszel Chi-square? ",A$:‹ A$ç"y" ï A$ç"Y" Í ì¥Ê ,:RªÊ AR,AC:…;"",I:‹ ÿ…(I)çI Í Ž :¡ Å:Ê ,:‘ "Please enter integers only.";:Ê AR,AC:‘ " ":‰ ªÖˆÅ:‹ Õèæ5 î ÕèæG Í ’ :¡ Ê 
,
:‘ "Please place EPISTAT in drive A: (or other default).":‘ Î);"Press any key to continue:"òA$çÞ:‹ A$ç"" Í  :¡ ¨’• § ‰ :ce EPISTAT in drive A: (or other default).":‘ Î);"Press any key to continue:"òA$çÞ:‹ A$ç"" Í  :¡ ¨