nodeMinimalInformation :: (Floating prob, Ord prob, Ord a)
                           => [String]
                           -> [[String]]
                           -> ModelDistribution prob a
                           -> prob
nodeMinimalInformation  sv avs m =
  let p_s = (extract $ marginalize sv m)
  in expected p_s (\s -> minimum $
                         map (\av -> nodeSpecificInformation sv s av m) avs)
nodeMinimalInformation :: (Floating prob, Ord prob, Ord a)
                           => [String]
                           -> [[String]]
                           -> ModelDistribution prob a
                           -> prob
nodeMinimalInformation  sv avs m =
  let p_s = (extract $ marginalize sv m)
  in expected p_s (\s -> minimum $
                         map (\av -> nodeSpecificInformation sv s av m) avs)
nodeMinimalInformation  sv avs m =
  let p_s = (extract $ marginalize sv m)
  in expected p_s (\s -> minimum $
                         map (\av -> nodeSpecificInformation sv s av m) avs)