nodeEntropy :: (Floating prob, Ord prob, Ord a)
               => [String]
               -> ModelDistribution prob a
               -> prob
nodeEntropy v m = (entropy . extract) (marginalize v m)
nodeEntropy :: (Floating prob, Ord prob, Ord a)
               => [String]
               -> ModelDistribution prob a
               -> prob
nodeEntropy v m = (entropy . extract) (marginalize v m)
nodeEntropy v m = (entropy . extract) (marginalize v m)