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

ÿ¥
:Ù CALCULATING SAMPLE SIZESß:Ù Written by Tracy L. Gustafson, M.D.:Ù Round Rock, Texas. Version 3.0, 19847• § ‰ ˆ:þŒ ½ "EPIMRG",^„ "CALCULATING SAMPLE SIZES",22,26‘AFç:‘:‘ Î);"1.) For a population survey":‘Å#‘ Î);"2.) For a paired case-control study":‘þ(‘ Î);"3.) For an unpaired case-control study":‘:‘<-‘ Î);:… "Enter choice: ",ASUB:‹ ÿ†(ASUBê)æ Í Å:‰ -ª2D1ç"the true population rate ":D2ç"and your sample rate ":D3ç" How certain must you be ":D4ç"POPULATION"Å7À:• ASUB ‰ A,n,sI<‘ "Enter your best estimate of the ";D4;" RATE of the study characteristic":‘ Î);:… "(err towards 50%) Percent = ",P:‘:Ž†A‘ Î);"SAMPLE SIZE FOR ";D4;" SURVEY":‘ Î);Ö(!,Í):‘F‘ " HOW LARGE is the population from which you want to select your sample?":‘ Î);:… "(you may approximate) ",PS:‘: <uK‘ " What is the MAXIMUM difference between ";D1:‘ Î);D2;:… "that you can tolerate? Percent = ",XD:‘ºP‘ D3;"that the difference between ";D1:‘ Î);D2;"is <";XD;"% ?"úU‘ Î);:… "1) 90% 2) 95% 3) 99% 4) 99.9% ",CZZ‹ Cç Í XZAç]R :¡ ‹ Cç Í XZAçGáz :¡ ‹ Cç Í XZAçÍÌ$‚ :¡ ‹ Cç Í XZAç\R‚ :¡ Å:‰ P™_PçPìd:XDçXDìd:SNçXZAëXZAëPë(êP)ì(XDëXD):SNçSNì(éSNìPS)»d Ü:‘:‘:¿ CLR2,CLR1:‘ Î);ôi‘ "The SAMPLE SIZE required is ";ÿ…(SNé€);:‰ ÍFnAFç:‘ Î);"SAMPLE SIZE FOR PAIRED CASE-CONTROL STUDY":‘ Î);Ö(),Í):‰ x§sAFç:‘ Î);"SAMPLE SIZE FOR UNPAIRED CASE-CONTROL STUDY":‘ Î);Ö(+,Í):D4ç"CONTROL GROUP",x <:‘ Î
); "Do you expect the TEST GROUP rate to be HIGHER or LOWER":‘ Î);:… "than the control group rate? (H or L) ",A$:‘b}‹ A$èæ"h" î A$èæ"H" î A$èæ"l" î A$èæ"L" Í Å:‰ xó‚‘ " What is the SMALLEST DIFFERENCE between the test group and controls":‘ Î );:… "that you want to be able to detect? Percent = ",XD‡‹ A$ç"h" ï A$ç"H" Í PTçPéXD :¡ PTçPêXD~Œ‘:‘ D3;"that you detect a difference as small as";XD;"% ":‘ Î);"(if it exists) ?":‘ Î);½‘… "1) 70% 2) 80% 3) 90% 4) 95% 5) 99% ",C:‘2–‹ Cç Í XZBçgf€ :¡ ‹ Cç Í XZBçPW€ :¡ ‹ Cç Í XZBç”$ :¡ ‹ Cç Í XZBç]R :¡ ‹ Cç Í XZBç’í‚ :¡ Å:‰ Œs›‘ " ";D3;"that any difference between your samples":‘ Î);´ ‘ "that you may detect is not simply due to chance?":‘ Î); "1) 90% 2) 95% 3) 99% 4) 99.9% ",COª‹ Cç Í XZAç]R :¡ ‹ Cç Í XZAçGáz :¡ ‹ Cç Í XZAçÍÌ$‚ :¡ ‹ Cç Í XZAç\R‚ :¡ Å:‰ ›®¯‘:‘ Î);:… "Enter the number of CONTROLS per CASE desired: ",CC:PçPìd:XDçXDìd:PTçPTìdë´‹ AFç Í SNç(XZAëÿ‡(Pë(êP))éXZBëÿ‡(PTë(êPT)))ìXD:‰ ¾5¹PCçP:Pç(PéPT)ì:SNç(XZAëÿ‡(ëPë(êP))éXZBëÿ‡(PTë(êPT)éPCë(êPC)))ìXDR¾SNçSNëSNë(CCé)ì(ëCC):‘ÃÍ Ü:¿ CLR2,CLR1:DQç"The number of ":‘ Î);:‹ AFç î CCç Í ‘ DQ;"PAIRS required is: ";ÿ…(SNé€);:‰ Í(ȑ DQ;"CASES required is: ";ÿ…(SNé€);ÎP):‘ Î);DQ;"CONTROLS required is: ";ÿ…(SNé€)ëCC;G͑ ÎP):¿ CLR1,CLR2:Ê ,›҅;"Do you want to calculate another SAMPLE SIZE? ",A$:‹ A$ç"y" ï A$ç"Y" Í ¨×Ê ,:ðÜþ“ "MB T180 L32 O2 EG#BG#E O4 EG#BG#E O3 EG#BG#E O2 L7 BG# L3 E.":ŽtˆÅ:‹ Õèæ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