From 9a7364ecd90a9df9bf700ca4464e93a5096d0fb4 Mon Sep 17 00:00:00 2001 From: Daniel Fox Franke Date: Wed, 3 Jul 2013 00:46:15 -0400 Subject: [PATCH] Entropy instance for LinearTransform --- Statistics/Distribution/Transform.hs | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/Statistics/Distribution/Transform.hs b/Statistics/Distribution/Transform.hs index ee72e4e1..c5f37e82 100644 --- a/Statistics/Distribution/Transform.hs +++ b/Statistics/Distribution/Transform.hs @@ -72,6 +72,14 @@ instance (D.Variance d) => D.Variance (LinearTransform d) where variance (LinearTransform _ sc dist) = sc * sc * D.variance dist stdDev (LinearTransform _ sc dist) = sc * D.stdDev dist +instance (D.MaybeEntropy d, D.DiscreteDistr d) + => D.MaybeEntropy (LinearTransform d) where + maybeEntropy (LinearTransform _ _ dist) = D.maybeEntropy dist + +instance (D.Entropy d, D.DiscreteDistr d) + => D.Entropy (LinearTransform d) where + entropy (LinearTransform _ _ dist) = D.entropy dist + instance D.ContGen d => D.ContGen (LinearTransform d) where genContVar (LinearTransform loc sc d) g = do x <- D.genContVar d g