summaryrefslogtreecommitdiff
path: root/packages/base/src
diff options
context:
space:
mode:
Diffstat (limited to 'packages/base/src')
-rw-r--r--packages/base/src/Numeric/LinearAlgebra/Static.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/base/src/Numeric/LinearAlgebra/Static.hs b/packages/base/src/Numeric/LinearAlgebra/Static.hs
index 296f8c7..fafbf81 100644
--- a/packages/base/src/Numeric/LinearAlgebra/Static.hs
+++ b/packages/base/src/Numeric/LinearAlgebra/Static.hs
@@ -517,7 +517,7 @@ uniformSample s (extract -> mins) (extract -> maxs) =
517 (zip (LA.toList mins) (LA.toList maxs)) 517 (zip (LA.toList mins) (LA.toList maxs))
518 518
519meanCov 519meanCov
520 :: forall m n . (KnownNat m, KnownNat n) 520 :: forall m n . (KnownNat m, KnownNat n, 1 <= m)
521 => L m n 521 => L m n
522 -> (R n, Sym n) 522 -> (R n, Sym n)
523meanCov (extract -> vs) = mkR *** (Sym . mkL . LA.unSym) $ LA.meanCov vs 523meanCov (extract -> vs) = mkR *** (Sym . mkL . LA.unSym) $ LA.meanCov vs