summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2012-02-23 19:08:16 +0100
committerAlberto Ruiz <aruiz@um.es>2012-02-23 19:08:16 +0100
commit9322df983400894625105f66e36e5718329c0053 (patch)
tree07c71310724f6c04dacd17814a98875aeee137b4
parent1d29051bc2ee1838a326d2d73f4bcf5907d4ebfd (diff)
minor doc fix
-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)