Linear Estimation on 41cv ?

[Dave Britten]

I was always a little perplexed that they didn't include linear regression, but it's pretty easy to add. This program gives you the functionality from the 11C. Note that it expects ΣREG 11. Call XEQ "LR" to calculate the coefficients (this step is required), which will store A, B, and R in registers 17, 18, and 19 respectively. Then you can use XEQ "XHAT" and XEQ "YHAT" to predict x or y values.

Code:

LBL "LR"
MEAN
*
RCL 16
*
CHS
RCL 15
+
RCL 11
X^2
RCL 16
/
CHS
RCL 12
+
/
STO 17
MEAN
RCL 17
*
-
STO 18
MEAN
*
RCL 16
*
CHS
RCL 15
+
RCL 16
1
-
ENTER
ENTER
SDEV
*
*
/
STO 19
RCL 18
RCL 17
RTN
LBL "XHAT"
RCL 18
-
RCL 17
/
RTN
LBL "YHAT"
RCL 17
*
RCL 18
+
END