less code duplication (#72)

Co-authored-by: David Widmann <devmotion@users.noreply.github.com>

README.md

@@ -7,5 +7,9 @@
 [![Code Style: Blue](https://img.shields.io/badge/code%20style-blue-4495d1.svg)](https://github.com/invenia/BlueStyle)
 [![ColPrac: Contributor's Guide on Collaborative Practices for Community Packages](https://img.shields.io/badge/ColPrac-Contributor's%20Guide-blueviolet)](https://github.com/SciML/ColPrac)
 
-GPLikelihoods.jl provides a collection of likelihoods to be used as building blocks for defining non-Gaussian problems.
-It is intended to be mainly consumed by other packages within the JuliaGaussianProcesses ecosystem (such as [ApproximateGPs.jl](https://github.com/JuliaGaussianProcesses/ApproximateGPs.jl)) for approximate Gaussian process regression, classification, event counting, etc. 
+GPLikelihoods.jl provides a collection of likelihoods to be used as building
+blocks for defining non-Gaussian problems. It is intended to be mainly
+consumed by other packages within the JuliaGaussianProcesses ecosystem (such as
+[ApproximateGPs.jl](https://github.com/JuliaGaussianProcesses/ApproximateGPs.jl))
+for approximate Gaussian process regression, classification, event counting,
+etc. 

src/likelihoods/bernoulli.jl

@@ -18,4 +18,4 @@ BernoulliLikelihood(l=logistic) = BernoulliLikelihood(link(l))
 
 (l::BernoulliLikelihood)(f::Real) = Bernoulli(l.invlink(f))
 
-(l::BernoulliLikelihood)(fs::AbstractVector{<:Real}) = Product(Bernoulli.(l.invlink.(fs)))
+(l::BernoulliLikelihood)(fs::AbstractVector{<:Real}) = Product(map(l, fs))

src/likelihoods/categorical.jl

@@ -36,6 +36,4 @@ function (l::CategoricalLikelihood)(f::AbstractVector{<:Real})
  return Categorical(l.invlink(f))
 end
 
-function (l::CategoricalLikelihood)(fs::AbstractVector)
- return Product(Categorical.(l.invlink.(fs)))
-end
+(l::CategoricalLikelihood)(fs::AbstractVector) = Product(map(l, fs))

src/likelihoods/exponential.jl

@@ -15,6 +15,4 @@ ExponentialLikelihood(l=exp) = ExponentialLikelihood(link(l))
 
 (l::ExponentialLikelihood)(f::Real) = Exponential(l.invlink(f))
 
-function (l::ExponentialLikelihood)(fs::AbstractVector{<:Real})
- return Product(Exponential.(l.invlink.(fs)))
-end
+(l::ExponentialLikelihood)(fs::AbstractVector{<:Real}) = Product(map(l, fs))

src/likelihoods/gamma.jl

@@ -20,4 +20,4 @@ GammaLikelihood(α::Real=1.0, l=exp) = GammaLikelihood(α, link(l))
 
 (l::GammaLikelihood)(f::Real) = Gamma(l.α, l.invlink(f))
 
-(l::GammaLikelihood)(fs::AbstractVector{<:Real}) = Product(Gamma.(l.α, l.invlink.(fs)))
+(l::GammaLikelihood)(fs::AbstractVector{<:Real}) = Product(map(l, fs))

src/likelihoods/negativebinomial.jl

@@ -33,6 +33,4 @@ end
 
 (l::NegativeBinomialLikelihood)(f::Real) = NegativeBinomial(l.successes, l.invlink(f))
 
-function (l::NegativeBinomialLikelihood)(fs::AbstractVector{<:Real})
- return Product(NegativeBinomial.(l.successes, l.invlink.(fs)))
-end
+(l::NegativeBinomialLikelihood)(fs::AbstractVector{<:Real}) = Product(map(l, fs))

src/likelihoods/poisson.jl

@@ -18,4 +18,4 @@ PoissonLikelihood(l=exp) = PoissonLikelihood(link(l))
 
 (l::PoissonLikelihood)(f::Real) = Poisson(l.invlink(f))
 
-(l::PoissonLikelihood)(fs::AbstractVector{<:Real}) = Product(Poisson.(l.invlink.(fs)))
+(l::PoissonLikelihood)(fs::AbstractVector{<:Real}) = Product(map(l, fs))