From f730c6d867d92dffbcbfd863b5d03a5d3a9543b0 Mon Sep 17 00:00:00 2001
From: Ben Bolker <bbolker@gmail.com>
Date: Sun, 18 Jun 2023 13:05:12 -0400
Subject: [PATCH] add sessionInfo to GH727 ex

---
 R/profile.R         | 6 +++++-
 misc/lme4_GH727.Rmd | 6 ++++++
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/R/profile.R b/R/profile.R
index 1ba12bf7..197bd438 100644
--- a/R/profile.R
+++ b/R/profile.R
@@ -251,8 +251,12 @@ profile.merMod <- function(fitted,
                         "new params ",
                         paste(mkpar(npar1,w,xx,ores$par),
                               collapse=","),"\n")
+                
                 if (devdiff < (-devtol))
-                    stop("profiling detected new, lower deviance")
+                    stop("profiling detected new, lower deviance ",
+                         sprintf("(deviance diff = %1.3g, tolerance = %1.3g)",
+                                 abs(devdiff), devtol))
+                             
                 if(devdiff < 0)
                     warning(gettextf("slightly lower deviances (diff=%g) detected",
                                      devdiff), domain=NA)
diff --git a/misc/lme4_GH727.Rmd b/misc/lme4_GH727.Rmd
index 52d30d9d..8477082d 100644
--- a/misc/lme4_GH727.Rmd
+++ b/misc/lme4_GH727.Rmd
@@ -177,3 +177,9 @@ if (FALSE) {
 ```
 
 ![](./lme4_GH727_rgl.png)
+
+---
+
+```{r si}
+sessionInfo()
+```