summaryrefslogtreecommitdiff
path: root/lib/Numeric/LinearAlgebra/Algorithms.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Algorithms.hs')
-rw-r--r--lib/Numeric/LinearAlgebra/Algorithms.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Numeric/LinearAlgebra/Algorithms.hs b/lib/Numeric/LinearAlgebra/Algorithms.hs
index e2ecd4d..435cc5a 100644
--- a/lib/Numeric/LinearAlgebra/Algorithms.hs
+++ b/lib/Numeric/LinearAlgebra/Algorithms.hs
@@ -209,7 +209,7 @@ rightSV :: Field t => Matrix t -> (Vector Double, Matrix t)
209rightSV m | vertical m = let (_,s,v) = thinSVD m in (s,v) 209rightSV m | vertical m = let (_,s,v) = thinSVD m in (s,v)
210 | otherwise = let (_,s,v) = svd m in (s,v) 210 | otherwise = let (_,s,v) = svd m in (s,v)
211 211
212-- | Singular values and all right singular vectors. 212-- | Singular values and all left singular vectors.
213leftSV :: Field t => Matrix t -> (Matrix t, Vector Double) 213leftSV :: Field t => Matrix t -> (Matrix t, Vector Double)
214leftSV m | vertical m = let (u,s,_) = svd m in (u,s) 214leftSV m | vertical m = let (u,s,_) = svd m in (u,s)
215 | otherwise = let (u,s,_) = thinSVD m in (u,s) 215 | otherwise = let (u,s,_) = thinSVD m in (u,s)