# HP Forums

Full Version: (41C) and (42S) Paired T Statistic
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
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
Reference URL's
• HP Forums: https://www.hpmuseum.org/forum/index.php
• :