100 REM ******** LNREG2 ******* STATISTICS
110 REM ****:VERSION I REVISED 9/15/72 ******
120 REM STATISTICS OF LINEAR REGRESSION
130 LET N,X1,Y1,X2,Y2,Z=0
140 READ K
150 FOR J=1 TO K
160 READ N0
170 LET N=N+N0
180 READ X
190 FOR I=1 TO N0
200 READ Y
210 LET X1=X1+X
220 LET Y1=Y1+Y
230 LET X2=X2+X*X
240 LET Y2=Y2+Y*Y
250 LET Z=Z+X*Y
260 NEXT I
270 NEXT J
280 LET S1=N*X2-X1*X1
290 LET S2=N*Z-X1*Y1
300 LET B=S2/S1
310 LET Y3=Y1/N
320 LET X3=X1/N
330 LET B1=Y3-B*X3
350N2=N-1
360 LET S3=(Y2-Y1*Y3-B*S2/N)
370LET S4=S3/(N-2)
380 PRINT "NUMBER = ";N,"SLOPE = ";B
390 PRINT "MEAN OF X = ";X1/N,"  OF Y = ";Y1/N
400 PRINT "Y-INTERCEPT = "B1
410 PRINT "SUM-SQUARES","TOTAL",Y2
420 PRINT "   ","MEAN  ",Y3*Y1
430 PRINT "    ","SLOPE ",B*S2/N
440 PRINT "    ","RESIDUAL ",S3
450 PRINT "STANDARD DEVIATIONS"
460PRINT"   ","X ",SQR(S1/N/N2)
470PRINT"    ","Y  ",SQR((Y2-Y1*Y3)/N2)
480 PRINT "    ","ERROR ",SQR(S4)
490 PRINT "    ","Y-BAR ",SQR(S4/N)
500 PRINT "    ","SLOPE ",SQR(S4/S1*N)
510 PRINT "    ","Y-INTER.",SQR(S4*(1/N+X3*X3/S1*N))
520 PRINT "F-RATIO FOR SLOPE = "B*S2/N/S4
530 GOTO 600
540 DATA 5
550 DATA 3,4,6,8,7
560 DATA 2,7,1,3
570 DATA 5,6,1,2,3,4,5
580 DATA 1,1,2
590 DATA 4,5,2,4,6,8
600 END
9900 DATA 5
9901 DATA 3,4,6,8,7
9902 DATA 2,7,1,3
9903 DATA 5,6,1,2,3,4,5
9904 DATA 11,1,2
9905 DATA 4,5,2,4,6,8,10