display fix for unlikely but possible type inference failure in bootstrap table (#865)

* display fix for unlikely but possible type inference failure in bootstrap table

* format

---------

Co-authored-by: Alex Arslan <[email protected]>

Author: palday

NEWS.md

@@ -1,3 +1,7 @@
+MixedModels v5.0.4 Release Notes
+==============================
+- Small update in some code related to displaying dispersion parameters in cases where inference has failed. [#865]
+
 MixedModels v5.0.3 Release Notes
 ==============================
 - `lowerbd(::MixedModel)` returns the _canonical_ lower bounds of a model's parameters, i.e. the expected bounds after rectification in unconstrained optimization. [#864]
@@ -700,3 +704,4 @@ Package dependencies
 [#860]: https://github.com/JuliaStats/MixedModels.jl/issues/860
 [#861]: https://github.com/JuliaStats/MixedModels.jl/issues/861
 [#864]: https://github.com/JuliaStats/MixedModels.jl/issues/864
+[#865]: https://github.com/JuliaStats/MixedModels.jl/issues/865

Project.toml

@@ -1,7 +1,7 @@
 name = "MixedModels"
 uuid = "ff71e718-51f3-5ec2-a782-8ffcbfa3c316"
 author = ["Phillip Alday <[email protected]>", "Douglas Bates <[email protected]>"]
-version = "5.0.3"
+version = "5.0.4"
 
 [deps]
 Arrow = "69666777-d1a9-59fb-9406-91d4454c9d45"

src/bootstrap.jl

@@ -359,7 +359,11 @@ function StatsBase.confint(
     par = filter(collect(propertynames(tbl))) do k
         k = string(k)
         # σ is missing in models without a dispersion parameter
-        if k == "σ" && Missing <: eltype(tbl.σ)
+        Tσ = eltype(tbl.σ)
+        # If inference failed when constructing `tbl.σ`, we can't rely on the element
+        # type to know whether missing values may be present
+        if k == "σ" &&
+            ((Tσ === Any && any(ismissing, tbl.σ)) || (Tσ !== Any && Missing <: Tσ))
             return false
         end
         return !startswith(k, 'θ') && k != "obj"