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
 import Text.Printf(printf)
 
 expand :: Int -> Vector Double -> Matrix Double
-expand n x = fromColumns $ constant 1 (dim x): map (x^) [1 .. n]
+expand n x = fromColumns $ map (x^) [0 .. n]
 
 polynomialModel :: Vector Double -> Vector Double -> Int
                 -> (Vector Double -> Vector Double)