6 lines
129 B
Racket
6 lines
129 B
Racket
#lang racket
|
|
(require math)
|
|
(define T matrix-transpose)
|
|
|
|
(define (fit X y)
|
|
(matrix-solve (matrix* (T X) X) (matrix* (T X) y)))
|