diff options
Diffstat (limited to 'lib/Data/Packed')
| -rw-r--r-- | lib/Data/Packed/Internal/Matrix.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Data/Packed/Internal/Matrix.hs b/lib/Data/Packed/Internal/Matrix.hs index 0664e9b..b8de245 100644 --- a/lib/Data/Packed/Internal/Matrix.hs +++ b/lib/Data/Packed/Internal/Matrix.hs | |||
| @@ -108,6 +108,8 @@ createMatrix order r c = do | |||
| 108 | 108 | ||
| 109 | reshape c v = matrixFromVector RowMajor c v | 109 | reshape c v = matrixFromVector RowMajor c v |
| 110 | 110 | ||
| 111 | singleton x = reshape 1 (fromList [x]) | ||
| 112 | |||
| 111 | transdataG :: Storable a => Int -> Vector a -> Int -> Vector a | 113 | transdataG :: Storable a => Int -> Vector a -> Int -> Vector a |
| 112 | transdataG c1 d c2 = fromList . concat . transpose . partit c1 . toList $ d | 114 | transdataG c1 d c2 = fromList . concat . transpose . partit c1 . toList $ d |
| 113 | 115 | ||