return the dispersion for varest of GLMMs with a dispersion param

palday · palday · commit d6c038bf86e2 · 2020-04-13T22:08:33.000+02:00
diff --git a/src/generalizedlinearmixedmodel.jl b/src/generalizedlinearmixedmodel.jl
@@ -585,7 +585,7 @@ function updateη!(m::GeneralizedLinearMixedModel)
     m
 end
 
-varest(m::GeneralizedLinearMixedModel{T}) where {T} = one(T)
+varest(m::GeneralizedLinearMixedModel{T}) where {T} = dispersion_parameter(m) ? dispersion(m) : one(T)
 
             # delegate GLMM method to LMM field
 for f in (

Original file line number	Diff line number	Diff line change
`@@ -585,7 +585,7 @@ function updateη!(m::GeneralizedLinearMixedModel)`
`585`	`585`	`m`
`586`	`586`	`end`
`587`	`587`
`588`		`-varest(m::GeneralizedLinearMixedModel{T}) where {T} = one(T)`
	`588`	`+varest(m::GeneralizedLinearMixedModel{T}) where {T} = dispersion_parameter(m) ? dispersion(m) : one(T)`
`589`	`589`
`590`	`590`	`# delegate GLMM method to LMM field`
`591`	`591`	`for f in (`