Revert diagonal.penalty to FALSE for smoothers

seananderson · seananderson · commit 58d740758ffc · 2025-03-26T11:54:38.000-07:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: sdmTMB
 Title: Spatial and Spatiotemporal SPDE-Based GLMMs with 'TMB'
-Version: 0.6.0.9037
+Version: 0.6.0.9038
 Authors@R: c(
     person(c("Sean", "C."), "Anderson", , "sean@seananderson.ca",
            role = c("aut", "cre"),
diff --git a/R/smoothers.R b/R/smoothers.R
@@ -46,7 +46,7 @@ parse_smoothers <- function(formula, data, knots = NULL, newdata = NULL, basis_p
         basis_out[[i]] <- basis[[i]] <- mgcv::smoothCon(
           object = obj, data = data,
           knots = knots, absorb.cons = TRUE, modCon = 3,
-          diagonal.penalty = TRUE
+          diagonal.penalty = FALSE
         )
       } else {
         basis[[i]] <- basis_prev[[i]] # predicting on new data

Original file line number	Diff line number	Diff line change
`@@ -46,7 +46,7 @@ parse_smoothers <- function(formula, data, knots = NULL, newdata = NULL, basis_p`
`46`	`46`	`basis_out[[i]] <- basis[[i]] <- mgcv::smoothCon(`
`47`	`47`	`object = obj, data = data,`
`48`	`48`	`knots = knots, absorb.cons = TRUE, modCon = 3,`
`49`		`- diagonal.penalty = TRUE`
	`49`	`+ diagonal.penalty = FALSE`
`50`	`50`	`)`
`51`	`51`	`} else {`
`52`	`52`	`basis[[i]] <- basis_prev[[i]] # predicting on new data`