diff options
Diffstat (limited to 'examples/pinv.hs')
-rw-r--r-- | examples/pinv.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/pinv.hs b/examples/pinv.hs index cab8fc6..7de50b8 100644 --- a/examples/pinv.hs +++ b/examples/pinv.hs | |||
@@ -3,7 +3,7 @@ import Graphics.Plot | |||
3 | import Text.Printf(printf) | 3 | import Text.Printf(printf) |
4 | 4 | ||
5 | expand :: Int -> Vector Double -> Matrix Double | 5 | expand :: Int -> Vector Double -> Matrix Double |
6 | expand n x = fromColumns $ constant 1 (dim x): map (x^) [1 .. n] | 6 | expand n x = fromColumns $ map (x^) [0 .. n] |
7 | 7 | ||
8 | polynomialModel :: Vector Double -> Vector Double -> Int | 8 | polynomialModel :: Vector Double -> Vector Double -> Int |
9 | -> (Vector Double -> Vector Double) | 9 | -> (Vector Double -> Vector Double) |