return the dispersion for varest of GLMMs with a dispersion param

palday · palday · commit e513a7204b6b · 2020-02-26T20:36:59.000+01:00
diff --git a/src/generalizedlinearmixedmodel.jl b/src/generalizedlinearmixedmodel.jl
@@ -584,7 +584,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
`@@ -584,7 +584,7 @@ function updateη!(m::GeneralizedLinearMixedModel)`
`584`	`584`	`m`
`585`	`585`	`end`
`586`	`586`
`587`		`-varest(m::GeneralizedLinearMixedModel{T}) where {T} = one(T)`
	`587`	`+varest(m::GeneralizedLinearMixedModel{T}) where {T} = dispersion_parameter(m) ? dispersion(m) : one(T)`
`588`	`588`
`589`	`589`	`# delegate GLMM method to LMM field`
`590`	`590`	`for f in (`