From 3916d70b9d170633c6122cb3c46000f0b3f32018 Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Wed, 21 May 2014 13:10:15 +0200
Subject: Numeric.LinearAlgebra.Compat

---
 packages/base/src/Numeric/Container.hs            |  6 ++++++
 packages/base/src/Numeric/LinearAlgebra/Compat.hs | 25 +++++++++++++++++++++++
 packages/base/src/Numeric/LinearAlgebra/Random.hs |  3 ++-
 3 files changed, 33 insertions(+), 1 deletion(-)
 create mode 100644 packages/base/src/Numeric/LinearAlgebra/Compat.hs

(limited to 'packages/base/src/Numeric')

diff --git a/packages/base/src/Numeric/Container.hs b/packages/base/src/Numeric/Container.hs
index c715dac..264a619 100644
--- a/packages/base/src/Numeric/Container.hs
+++ b/packages/base/src/Numeric/Container.hs
@@ -40,6 +40,11 @@ module Numeric.Container (
     optimiseMult,
     mXm,mXv,vXm,LSDiv(..),
     outer, kronecker,
+    -- * Random numbers
+    RandDist(..),
+    randomVector,
+    gaussianSample,
+    uniformSample,
     -- * Element conversion
     Convert(..),
     Complexable(),
@@ -59,6 +64,7 @@ import Data.Complex
 import Numeric.LinearAlgebra.Algorithms(Field,linearSolveSVD)
 import Data.Monoid(Monoid(mconcat))
 import Data.Packed.IO
+import Numeric.LinearAlgebra.Random
 
 ------------------------------------------------------------------
 
diff --git a/packages/base/src/Numeric/LinearAlgebra/Compat.hs b/packages/base/src/Numeric/LinearAlgebra/Compat.hs
new file mode 100644
index 0000000..7b43365
--- /dev/null
+++ b/packages/base/src/Numeric/LinearAlgebra/Compat.hs
@@ -0,0 +1,25 @@
+-----------------------------------------------------------------------------
+{- |
+Module      :  Numeric.LinearAlgebra.Compat
+Copyright   :  (c) Alberto Ruiz 2006-14
+License     :  BSD3
+Maintainer  :  Alberto Ruiz
+Stability   :  provisional
+
+-}
+-----------------------------------------------------------------------------
+{-# OPTIONS_HADDOCK hide #-}
+
+module Numeric.LinearAlgebra.Compat (
+    module Numeric.Container,
+    module Numeric.LinearAlgebra.Algorithms,
+    meanCov
+) where
+
+import Numeric.Container
+import Numeric.LinearAlgebra.Algorithms
+import Numeric.Matrix()
+import Numeric.Vector()
+import Numeric.LinearAlgebra.Util(meanCov)
+
+
diff --git a/packages/base/src/Numeric/LinearAlgebra/Random.hs b/packages/base/src/Numeric/LinearAlgebra/Random.hs
index 7afd658..b66988e 100644
--- a/packages/base/src/Numeric/LinearAlgebra/Random.hs
+++ b/packages/base/src/Numeric/LinearAlgebra/Random.hs
@@ -20,7 +20,8 @@ module Numeric.LinearAlgebra.Random (
 ) where
 
 import Numeric.Vectorized
-import Numeric.Container
+import Data.Packed
+import Data.Packed.Internal.Numeric
 import Numeric.LinearAlgebra.Algorithms
 import System.Random(randomIO)
 
-- 
cgit v1.2.3