module Mcmc.Likelihood
( Likelihood,
LikelihoodG,
LikelihoodFunction,
LikelihoodFunctionG,
noLikelihood,
)
where
import Numeric.Log
type Likelihood = Log Double
type LikelihoodG a = Log a
type LikelihoodFunction a = LikelihoodFunctionG a Double
type LikelihoodFunctionG a b = a -> LikelihoodG b
noLikelihood :: RealFloat b => LikelihoodFunctionG a b
noLikelihood :: LikelihoodFunctionG a b
noLikelihood = LikelihoodG b -> LikelihoodFunctionG a b
forall a b. a -> b -> a
const LikelihoodG b
1.0
{-# SPECIALIZE noLikelihood :: LikelihoodFunction Double #-}