Set EDF printing on by default #383 #387

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: sdmTMB
 Title: Spatial and Spatiotemporal SPDE-Based GLMMs with 'TMB'
-Version: 0.6.0.9018
+Version: 0.6.0.9019
 Authors@R: c(
     person(c("Sean", "C."), "Anderson", , "[email protected]",
            role = c("aut", "cre"),

NEWS.md

@@ -1,8 +1,7 @@
 # sdmTMB (development version)
 
 * Add EDF (effective degrees of freedom) printing to smoothers with 
-  `print.sdmTMB()` and `summary.sdmTMB()` if argument `edf = TRUE` 
-  is included. E.g. `print.sdmTMB(fit, edf = TRUE)`. #383 #387
+  `print.sdmTMB()` and `summary.sdmTMB()`. #383 #387
 
 * Add `cAIC()` for calculating *conditional* AIC. Theory based on
   <https://arxiv.org/abs/2411.14185>; also see

R/caic.R

@@ -71,7 +71,11 @@ cAIC.sdmTMB <- function(object, what = c("cAIC", "EDF"), ...) {
 
   what <- tolower(what)
   what <- match.arg(what, choices = c("caic", "edf"))
-  what <- tolower(what)
+
+  if ("edf" %in% names(object) && what == "edf") {
+    return(object$edf)
+  }
+
   tmb_data <- object$tmb_data
 
   ## Ensure profile = NULL

R/fit.R

@@ -1520,7 +1520,10 @@ sdmTMB <- function(
     gradients  = conv$final_grads,
     bad_eig    = conv$bad_eig,
     pos_def_hessian = sd_report$pdHess))
-  `class<-`(out, "sdmTMB")
+  out <- `class<-`(out, "sdmTMB")
+  edf <- cAIC(out, what = "EDF")
+  out$edf <- edf
+  out
 }
 
 check_bounds <- function(.par, lower, upper) {

R/print.R

@@ -322,7 +322,7 @@ print_header <- function(x) {
   cat(info$overall_family)
 }
 
-print_one_model <- function(x, m = 1, edf = FALSE, silent = FALSE) {
+print_one_model <- function(x, m = 1, edf = TRUE, silent = FALSE) {
   if (edf) {
     .edf <- suppressMessages(cAIC(x, what = "EDF"))
   } else {