update

Task/Multiple-regression/Racket/multiple-regression-1.rkt

@@ -0,0 +1,6 @@
+#lang racket
+(require math)
+(define T matrix-transpose)
+
+(define (fit X y)
+  (matrix-solve (matrix* (T X) X) (matrix* (T X) y)))

Task/Multiple-regression/Racket/multiple-regression-2.rkt

@@ -0,0 +1,10 @@
+(fit (matrix [[1 2]
+              [2 5]
+              [3 7]
+              [4 9]])
+     (matrix [[1]
+              [2]
+              [3]
+              [9]]))
+; Output:
+(array #[#[9 1/3] #[-3 1/3]])