From d5d7a8193b7d6516e04d4714c69d712a4c3b3ae7 Mon Sep 17 00:00:00 2001
From: Douglas Bates <dmbates@gmail.com>
Date: Mon, 16 Jun 2025 12:20:07 -0500
Subject: [PATCH] Add output from insteval model
---
test/prima.jl | 14 ++++++++++++++
1 file changed, 14 insertions(+)
diff --git a/test/prima.jl b/test/prima.jl
index 72d840d1c..1c6b5c569 100644
--- a/test/prima.jl
+++ b/test/prima.jl
@@ -98,3 +98,17 @@ end
@test startswith(out, expected)
end
+
+@testset "instvalfits" begin # repeat the fits from the Blocked Cholesky paper
+ dat = dataset(:insteval)
+ f1 = @formula(y ~ 1 + service + (1|s) + (1|d) + (1|dept) + (0 + service|dept))
+ progress = false
+ m1 = fit(MixedModel, f1, dat; progress)
+ println(m1)
+ println(m1.optsum)
+ @test isapprox(objective(m1), 237648.6016)
+ prfit!(m1; progress)
+ println(m1)
+ println(m1.optsum)
+ @test isapprox(objective(m1), 237648.6016)
+end