Running examples in ‘broom.mixed-Ex.R’ failed
The error most likely occurred in:

> ### Name: glmmTMB_tidiers
> ### Title: Tidying methods for glmmTMB models
> ### Aliases: glmmTMB_tidiers tidy.glmmTMB augment.glmmTMB glance.glmmTMB
> 
> ### ** Examples
> 
> if (require("glmmTMB") && require("lme4")) {
+     data("sleepstudy",package="lme4")
+     ## original model:
+     ## Not run: 
+ ##D         lmm1 <- glmmTMB(Reaction ~ Days + (Days | Subject), sleepstudy)
+ ##D     
+ ## End(Not run)
+     ## load stored object
+     load(system.file("extdata","glmmTMB_example.rda",package="broom.mixed"))
+     tidy(lmm1)
+     tidy(lmm1, effects = "fixed")
+     tidy(lmm1, effects = "fixed", conf.int=TRUE)
+     tidy(lmm1, effects = "fixed", conf.int=TRUE, conf.method="uniroot")
+     ## FIX: tidy(lmm1, effects = "ran_vals", conf.int=TRUE)
+     head(augment(lmm1, sleepstudy))
+     glance(lmm1)
+ 
+     ## original model:
+     ##  glmm1 <- glmmTMB(incidence/size ~ period + (1 | herd),
+     ##                  data = cbpp, family = binomial, weights=size)
+     tidy(glmm1)
+     tidy(glmm1, effects = "fixed")
+     tidy(glmm1, effects = "fixed", exponentiate=TRUE)
+     tidy(glmm1, effects = "fixed", conf.int=TRUE, exponentiate=TRUE)
+     head(augment(glmm1, cbpp))
+     head(augment(glmm1, cbpp, type.residuals="pearson"))
+     glance(glmm1)
+ ## Not run: 
+ ##D     ## profile CIs - a little bit slower but more accurate
+ ##D     tidy(glmm1, effects = "fixed", conf.int=TRUE, exponentiate=TRUE, conf.method="profile")
+ ## End(Not run)
+ }
Loading required package: glmmTMB
Loading required package: lme4
Loading required package: Matrix

 *** caught segfault ***
address 0, cause 'memory not mapped'

Traceback:
 1: f(par, order = order, ...)
 2: fn(par)
 3: newton(par = c(b = 22.6925212105235, b = 10.1489668296507, b = -20.1717895350522, b = -7.57061091717813, b = -18.5564228178258, b = -4.43992832475113, b = 42.7089554093672, b = -3.5852833859891, b = 41.4266702284115, b = -1.87105698642309, b = 28.6923136875324, b = 0.838244570695166, b = 36.3187055060991, b = 0.914632105768715, b = 12.8800414237588, b = 2.10618268999235, b = 18.8392070609398, b = -9.52597165723157, b = 54.5431059550029, b = 9.70582052251601, b = -4.68137341841254, b = 2.137842136266, b = 7.54219712299055, b = 7.54513737528724, b = 24.1507697519221, b = -1.88188566839178, b = 40.4989733048486, b = 4.63515364348225, b = 23.1352828429025, b = 1.94516011375007, b = -4.83350887550033, b = 5.73316933244864, b = 20.6000109679085, b = 0.102396934078308, b = 31.9956830379526, b = 2.38414242870274), fn = function (par.random, order = 0, ...) {    par[random] <- par.random    par[-random] <- par.fixed    res <- f(par, order = order, ...)    switch(order + 1, res, res[random], res[random, random])}, gr = function (x) f0(x, order = 1), he = function (par.random) {    par[random] <- par.random    par[-random] <- par.fixed    spHess(par, random = TRUE)}, env = <environment>, maxit = 1000, trace = FALSE)
 4: do.call("newton", c(list(par = eval(random.start), fn = f0, gr = function(x) f0(x,     order = 1), he = H0, env = env), inner.control))
 5: doTryCatch(return(expr), name, parentenv, handler)
 6: tryCatchOne(expr, names, parentenv, handlers[[1L]])
 7: tryCatchList(expr, classes, parentenv, handlers)
 8: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call)[1L]        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
 9: try(do.call("newton", c(list(par = eval(random.start), fn = f0,     gr = function(x) f0(x, order = 1), he = H0, env = env), inner.control)),     silent = silent)
10: ff(x, order = 0)
11: doTryCatch(return(expr), name, parentenv, handler)
12: tryCatchOne(expr, names, parentenv, handlers[[1L]])
13: tryCatchList(expr, classes, parentenv, handlers)
14: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call)[1L]        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
15: try({    if (MCcontrol$doMC) {        ff(x, order = 0)        MC(last.par, n = MCcontrol$n, seed = MCcontrol$seed,             order = 0)    }    else ff(x, order = 0)}, silent = silent)
16: obj$fn(par)
17: objective(.par, ...)
18: nlminb(start, newfn, newgr, control = control)
19: f.original(x)
20: doTryCatch(return(expr), name, parentenv, handler)
21: tryCatchOne(expr, names, parentenv, handlers[[1L]])
22: tryCatchList(expr, classes, parentenv, handlers)
23: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call)[1L]        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
24: try(f.original(x), silent = TRUE)
25: f(x)
26: f(arg, ...)
27: (function (arg) f(arg, ...))(-26.9822124659339)
28: uniroot(g, interval = c(parm.range[1], 0))
29: TMB::tmbroot(obj = object$obj, name = n, target = 0.5 * qchisq(level,     df = 1), ...)
30: FUN(X[[i]], ...)
31: lapply(as.list(parm), FUN)
32: confint.glmmTMB(x, method = tolower(conf.method), level = conf.level,     component = comp, estimate = FALSE, parm = seq(nrow(ret[[comp]])),     ...)
33: confint(x, method = tolower(conf.method), level = conf.level,     component = comp, estimate = FALSE, parm = seq(nrow(ret[[comp]])),     ...)
34: as.data.frame(., stringsAsFactors = FALSE)
35: setNames(., c("conf.low", "conf.high"))
36: confint(x, method = tolower(conf.method), level = conf.level,     component = comp, estimate = FALSE, parm = seq(nrow(ret[[comp]])),     ...) %>% as.data.frame(stringsAsFactors = FALSE) %>% setNames(c("conf.low",     "conf.high"))
37: tidy.glmmTMB(lmm1, effects = "fixed", conf.int = TRUE, conf.method = "uniroot")
38: tidy(lmm1, effects = "fixed", conf.int = TRUE, conf.method = "uniroot")
An irrecoverable exception occurred. R is aborting now ...