From 35a7f3355611cd20994f36b43acbd7413e09f558 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Thu, 29 Oct 2015 12:57:43 +0100 Subject: bump versions, fix tests, thanks --- packages/base/src/Internal/Random.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'packages/base/src/Internal/Random.hs') diff --git a/packages/base/src/Internal/Random.hs b/packages/base/src/Internal/Random.hs index 8c792eb..60b2cef 100644 --- a/packages/base/src/Internal/Random.hs +++ b/packages/base/src/Internal/Random.hs @@ -31,13 +31,13 @@ import System.Random(randomIO) gaussianSample :: Seed -> Int -- ^ number of rows -> Vector Double -- ^ mean vector - -> Matrix Double -- ^ covariance matrix + -> Herm Double -- ^ covariance matrix -> Matrix Double -- ^ result gaussianSample seed n med cov = m where c = dim med meds = konst' 1 n `outer` med rs = reshape c $ randomVector seed Gaussian (c * n) - m = rs `mXm` cholSH cov `add` meds + m = rs `mXm` chol cov `add` meds -- | Obtains a matrix whose rows are pseudorandom samples from a multivariate -- uniform distribution. -- cgit v1.2.3