Rosetta Code

Multiple regression: Difference between revisions

Page Discussion

Multiple regression (view source)

Revision as of 11:44, 8 February 2022

2 bytes added ,  2 years ago
Emacs Lisp: Avoid interpolation
m (→‎{{header|Phix}}: added syntax colouring, made p2js compatible)
(Emacs Lisp: Avoid interpolation)
Line 983:
=={{header|Emacs Lisp}}==
 
{{libheader|calc}}
Multiple regression analysis by Emacs Lisp and built-in Emacs Calc.
 
<lang emacs-lisp>(let ((x1 '(0 1 2 3 4 5 6 7 8 9 10))
(setq X1 (x2 '[(0 1 21 3 43 57 6 7 83 9 10]8))
(setq X2 '[0 1 1 3 3(y 7'(1 6 717 34 57 86 121 162 3209 9262 8]321)))
(formatapply #'calc-eval "fit(a*X1+b*X2+c,[X1,X2],[a,b,c],[%s$1 %s$2 %s$3])" X1 X2 Y))nil▼
(setq Y '[1 6 17 34 57 86 121 162 209 262 321])
(mapcar (lambda (items) (cons 'vec items)) (list x1 x2 y))))</lang>
(calc-eval
▲ (format "fit(a*X1+b*X2+c,[X1,X2],[a,b,c],[%s %s %s])" X1 X2 Y))
</lang>
 
{{out}}
 
<pre>
"35.2014388489 *X1 - 3.95683453237 *X2 - 42.7410071942"
</pre>
 
=={{header|ERRE}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/117979"