diff --git a/R/check_singularity.R b/R/check_singularity.R index e2e369f61..9c2909716 100644 --- a/R/check_singularity.R +++ b/R/check_singularity.R @@ -97,6 +97,7 @@ #' ) #' check_singularity(model) #' +#' \dontru{ #' # Fixing singularity issues using priors in glmmTMB #' # Example taken from `vignette("priors", package = "glmmTMB")` #' dat <- readRDS(system.file( @@ -120,7 +121,7 @@ #' model_with_priors <- update(model, priors = prior) #' # no singular fit #' check_singularity(model_with_priors) -#' +#' } #' @export check_singularity <- function(x, tolerance = 1e-5, ...) { UseMethod("check_singularity") diff --git a/man/check_singularity.Rd b/man/check_singularity.Rd index cfe2dca0c..01b85ee85 100644 --- a/man/check_singularity.Rd +++ b/man/check_singularity.Rd @@ -92,6 +92,7 @@ model <- lme4::lmer( ) check_singularity(model) +\dontru{ # Fixing singularity issues using priors in glmmTMB # Example taken from `vignette("priors", package = "glmmTMB")` dat <- readRDS(system.file( @@ -115,6 +116,7 @@ prior <- data.frame( model_with_priors <- update(model, priors = prior) # no singular fit check_singularity(model_with_priors) +} \dontshow{\}) # examplesIf} } \references{