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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: compute.real
> ### Title: Compute estimates of real parameters
> ### Aliases: compute.real
> ### Keywords: utility
> 
> ### ** Examples
> 
> data(dipper)
> dipper.proc=process.data(dipper,model="cjs",begin.time=1)
255 capture histories collapsed into 53
> dipper.ddl=make.design.data(dipper.proc)
> mod.Phisex.pdot=crm(dipper.proc,dipper.ddl,
+  model.parameters=list(Phi=list(formula=~sex+time),p=list(formula=~1)),hessian=TRUE)
Fitting model

Computing initial parameter estimates

Starting optimization for 8 parameters...

 Number of evaluations:  100  -2lnl:   659.65562
 Number of evaluations:  200  -2lnl: 659.6494517
 Number of evaluations:  300  -2lnl: 659.9122793
 Number of evaluations:  400  -2lnl: 659.6533877
 Number of evaluations:  500  -2lnl: 660.1915964Warning in if (class(nhatend) != "try-error") { :
  the condition has length > 1 and only the first element will be used
Computing hessian...

 Number of evaluations:  100  -2lnl: 659.7222552
 Number of evaluations:  200  -2lnl: 659.6497384 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
marked
 --- call from context --- 
solvecov(vcv)
 --- call from argument --- 
if (class(covinv) != "try-error") coll = FALSE else {
    p <- nrow(m)
    cove <- eigen(m, symmetric = TRUE)
    coll <- TRUE
    if (min(cove$values) < 1/cmax) {
        covewi <- diag(p)
        for (i in 1:p) if (cove$values[i] < 1/cmax) 
            covewi[i, i] <- cmax
        else covewi[i, i] <- 1/cove$values[i]
    }
    else covewi <- diag(1/cove$values, nrow = length(cove$values))
    covinv <- cove$vectors %*% covewi %*% t(cove$vectors)
}
 --- R stacktrace ---
where 1: solvecov(vcv)
where 2: doTryCatch(return(expr), name, parentenv, handler)
where 3: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 4: tryCatchList(expr, classes, parentenv, handlers)
where 5: 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))
})
where 6: try(solvecov(vcv))
where 7: cjs.hessian(res)
where 8: cjs_admb(data.proc, ddl, dml, parameters = parameters, initial = initial, 
    method = method, hessian = hessian, debug = debug, accumulate = accumulate, 
    chunk_size = chunk_size, refit = refit, control = control, 
    itnmax = itnmax, scale = scale, use.admb = use.admb, crossed = crossed, 
    compile = compile, extra.args = extra.args, reml = reml, 
    clean = clean, ...)
where 9: crm(dipper.proc, dipper.ddl, model.parameters = list(Phi = list(formula = ~sex + 
    time), p = list(formula = ~1)), hessian = TRUE)

 --- value of length: 2 type: logical ---
[1] TRUE TRUE
 --- function from context --- 
function (m, cmax = 1e+10) 
{
    options(show.error.messages = FALSE)
    covinv <- try(solve(m))
    if (class(covinv) != "try-error") 
        coll = FALSE
    else {
        p <- nrow(m)
        cove <- eigen(m, symmetric = TRUE)
        coll <- TRUE
        if (min(cove$values) < 1/cmax) {
            covewi <- diag(p)
            for (i in 1:p) if (cove$values[i] < 1/cmax) 
                covewi[i, i] <- cmax
            else covewi[i, i] <- 1/cove$values[i]
        }
        else covewi <- diag(1/cove$values, nrow = length(cove$values))
        covinv <- cove$vectors %*% covewi %*% t(cove$vectors)
    }
    options(show.error.messages = TRUE)
    out <- list(inv = covinv, coll = coll)
    out
}
<bytecode: 0x56372bd63f38>
<environment: namespace:marked>
 --- function search by body ---
Function solvecov in namespace marked has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1