(41C) and (42S) Paired T Statistic - Printable Version +- HP Forums (https://www.hpmuseum.org/forum) +-- Forum: HP Software Libraries (/forum-10.html) +--- Forum: General Software Library (/forum-13.html) +--- Thread: (41C) and (42S) Paired T Statistic (/thread-13755.html) (41C) and (42S) Paired T Statistic - Eddie W. Shore - 10-04-2019 03:16 AM Introduction The program PAIRT compares two means of two populations. With this statistic, the paired t statistic test the null hypothesis: μ_1 = μ_2, with degrees of freedom n - 1. Formulas used: D = 1/n * Σ(x_i - y_i) S = √(( n * Σ(D^2) - (ΣD)^2) / (n * (n - 1))) / √n t = D / S Note: The default statistics registers are R11 - R16. HP 41C/DM 41 Program: PAIRT Code: ```01 LBL T^PAIRT 02 T^PAIRED T 03 AVIEW 04 PSE 05 CLΣ 06 LBL 00 07 T^ENTRY Y/X: 08 PROMPT 09 X<>Y 10 - 11 Σ+ 12 T^MORE? N=0 13 PROMPT 14 X≠0? 15 GTO 00 16 SDEV 17 RCL 16 18 SQRT 19 / 20 STO 00 21 MEAN 22 RCL 00 23 / 24 ^T= 25 AVIEW 26 PSE 27 END``` HP 42S/DM 42 Program: PAIRT Code: ```00 {67-Byte Prgm} 01 LBL "PAIRT" 02 "PAIRED T" 03 AVIEW 04 PSE 05 CLΣ 06 LBL 00 07 "ENTRY Y/X:" 08 PROMPT 09 X<>Y 10 -  11 Σ+ 12 "MORE N=0?" 13 PROMPT 14 X≠0 15 GTO 00 16 SDEV 17 RCL 16 18 SQRT 19 ÷ 20 STO 00 21 MEAN 22 RCL÷ 00 23 "T=" 24 AVIEW 25 PSE 26 RTN 27 END``` Instructions 1. Run PAIRT, by XEQ PAIRT 2. For each data point, enter y, press ENTER, then x, then press R/S. If you have more data points to enter, enter a nonzero value (any nonzero value) at the "MORE? NO=0" prompt. When you are done, enter 0 at the "MORE? NO=0" prompt. 3. At the "T=" prompt, press R/S to see the t statistic. Example Data: (x,y) (4.3, 8.1) (4.2, 8.6) (4.5, 9.6) (13.0, 10.4) Result: T = -1.5043 Source: HP-33E Statistics Applications Hewlett Packard Company: Corvallis, OR. February 1978 Blog entry will be posted on 11/3/2019