diff options
Diffstat (limited to 'lib/Numeric/LinearAlgebra')
-rw-r--r-- | lib/Numeric/LinearAlgebra/Algorithms.hs | 2 |
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) | |||
209 | rightSV m | vertical m = let (_,s,v) = thinSVD m in (s,v) | 209 | rightSV 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. |
213 | leftSV :: Field t => Matrix t -> (Matrix t, Vector Double) | 213 | leftSV :: Field t => Matrix t -> (Matrix t, Vector Double) |
214 | leftSV m | vertical m = let (u,s,_) = svd m in (u,s) | 214 | leftSV 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) |