1 files changed, 0 insertions, 18 deletions

diff --git a/examples/pinv1.hs b/examples/pinv1.hs
deleted file mode 100644
index 301eac8..0000000
--- a/examples/pinv1.hs
+++ /dev/null
@@ -1,18 +0,0 @@
--- initial check for the polynomial model example
-import Numeric.LinearAlgebra
-
-
-prepSyst :: Int -> Matrix Double -> (Matrix Double, Vector Double)
-prepSyst n d = (a,b) where
-    [x,b] = toColumns d
-    a = fromColumns $ 1+0*x : map (x^) [1 .. n]
-
-main = do
-    dat <- readMatrix `fmap` readFile "data.txt"
-    let (a,b) = prepSyst 3 dat
-    putStr "Coefficient matrix:\n"
-    dispR 3 a
-    putStr "Desired values:\n"
-    print b
-    putStr "\nLeast Squares Solution:\n"
-    print $ pinv a <> b -- equivalent to: linearSolveLSR a (fromColumns [b])