Fixed influence and cooks.distance methods

tripartio · Oct 4, 2024 · 6bb6c7d · 6bb6c7d
1 parent 24ee91e
commit 6bb6c7d
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 12 deletions.
diff --git a/R/autogam.R b/R/autogam.R
@@ -167,12 +167,15 @@ coef.autogam <- function(x, ...) {
 }
 
 
-#' #' @rdname generic-method
-#' #' @export
-#' #' @method cooks.distance autogam
-#' cooks.distance.autogam <- function(model, ...) {
-#'   mgcv:::cooks.distance.gam(model$gam, ...)
-#' }
+#' @rdname generic-method
+# # I don't know why CHECK bugs out if this method is exported; it works otherwise
+# @export
+#' @method cooks.distance autogam
+cooks.distance.autogam <- function(model, ...) {
+  stats::cooks.distance(model$gam, ...)
+  # For some reason this only works when called from stats, not mgcv
+  # mgcv:::cooks.distance.gam(model$gam, ...)
+}
 
 
 #' @rdname generic-method
@@ -183,12 +186,13 @@ formula.autogam <- function(x, ...) {
 }
 
 
-#' #' @rdname generic-method
-#' #' @export
-#' #' @method influence autogam
-#' influence.autogam <- function(model, ...) {
-#'   mgcv::influence.gam(model$gam, ...)
-#' }
+#' @rdname generic-method
+# # I don't know why CHECK bugs out if this method is exported; it works otherwise
+# @export
+#' @method influence autogam
+influence.autogam <- function(model, ...) {
+  mgcv::influence.gam(model$gam, ...)
+}
 
 
 #' @rdname generic-method

diff --git a/man/generic-method.Rd b/man/generic-method.Rd