From 109fa7d25779e331356bbe310755c10eddfeb235 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Thu, 22 May 2014 20:49:31 +0200 Subject: remove compat --- packages/gsl/src/Numeric/GSL/Random.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'packages/gsl/src/Numeric') diff --git a/packages/gsl/src/Numeric/GSL/Random.hs b/packages/gsl/src/Numeric/GSL/Random.hs index 2594d27..07fa64d 100644 --- a/packages/gsl/src/Numeric/GSL/Random.hs +++ b/packages/gsl/src/Numeric/GSL/Random.hs @@ -41,7 +41,7 @@ gaussianSample :: Seed -> Matrix Double -- ^ result gaussianSample seed n med cov = m where c = dim med - meds = konst' 1 n `outer` med + meds = konst 1 n `outer` med rs = reshape c $ randomVector seed Gaussian (c * n) m = rs `mXm` cholSH cov `add` meds @@ -57,7 +57,7 @@ uniformSample seed n rgs = m where cs = zipWith subtract as bs d = dim a dat = toRows $ reshape n $ randomVector seed Uniform (n*d) - am = konst' 1 n `outer` a + am = konst 1 n `outer` a m = fromColumns (zipWith scale cs dat) `add` am -- | pseudorandom matrix with uniform elements between 0 and 1 -- cgit v1.2.3