summaryrefslogtreecommitdiff
path: root/lib/Numeric/LinearAlgebra/Util.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Util.hs')
-rw-r--r--lib/Numeric/LinearAlgebra/Util.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Numeric/LinearAlgebra/Util.hs b/lib/Numeric/LinearAlgebra/Util.hs
index 39566ab..532556e 100644
--- a/lib/Numeric/LinearAlgebra/Util.hs
+++ b/lib/Numeric/LinearAlgebra/Util.hs
@@ -97,7 +97,7 @@ ones r c = konst 1 (r,c)
97-- | concatenation of real vectors 97-- | concatenation of real vectors
98infixl 3 & 98infixl 3 &
99(&) :: Vector Double -> Vector Double -> Vector Double 99(&) :: Vector Double -> Vector Double -> Vector Double
100a & b = join [a,b] 100a & b = Numeric.Container.join [a,b]
101 101
102-- | horizontal concatenation of real matrices 102-- | horizontal concatenation of real matrices
103infixl 3 ! 103infixl 3 !
@@ -206,7 +206,7 @@ vec = flatten . trans
206 206
207vech :: Element t => Matrix t -> Vector t 207vech :: Element t => Matrix t -> Vector t
208-- ^ half-vectorization (of the lower triangular part) 208-- ^ half-vectorization (of the lower triangular part)
209vech m = join . zipWith f [0..] . toColumns $ m 209vech m = Numeric.Container.join . zipWith f [0..] . toColumns $ m
210 where 210 where
211 f k v = subVector k (dim v - k) v 211 f k v = subVector k (dim v - k) v
212 212