Running examples in 'jmv-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: logRegOrd
> ### Title: Ordinal Logistic Regression
> ### Aliases: logRegOrd
> 
> ### ** Examples
> 
> set.seed(1337)
> 
> y <- factor(sample(1:3, 100, replace = TRUE))
> x1 <- rnorm(100)
> x2 <- rnorm(100)
> 
> df <- data.frame(y=y, x1=x1, x2=x2)
> 
> logRegOrd(data = df, dep = y,
+           covs = vars(x1, x2),
+           blocks = list(list("x1", "x2")))
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
jmv
 --- call from context --- 
NULL
 --- call from argument --- 
if (class(CI[[i]]) == "try-error") CI[[i]] <- confint.default(models[[i]], 
    level = self$options$ciWidth/100)
 --- R stacktrace ---
where 1: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
where 2: suppressMessages({
    models <- list()
    modelTest <- list()
    lrTestTerms <- list()
    dev <- list()
    AIC <- list()
    BIC <- list()
    pseudoR <- list()
    CI <- list()
    CIOR <- list()
    nullFormula <- as.formula(paste0(jmvcore::toB64(self$options$dep), 
        "~ 1"))
    nullModel <- MASS::polr(nullFormula, data = data, model = TRUE, 
        Hess = TRUE)
    null <- list(dev = nullModel$deviance, df = nullModel$edf)
    for (i in seq_along(formulas)) {
        models[[i]] <- MASS::polr(formulas[[i]], data = data, 
            model = TRUE, Hess = TRUE)
        models[[i]]$call$formula <- formulas[[i]]
        lrTestTerms[[i]] <- car::Anova(models[[i]], test = "LR", 
            type = 3, singular.ok = TRUE)
        modelTest[[i]] <- private$.modelTest(models[[i]], null)
        dev[[i]] <- models[[i]]$deviance
        AIC[[i]] <- stats::AIC(models[[i]])
        BIC[[i]] <- stats::BIC(models[[i]])
        pseudoR[[i]] <- private$.pseudoR2(models[[i]], null)
        CI[[i]] <- try(confint(models[[i]], level = self$options$ciWidth/100), 
            silent = TRUE)
        if (class(CI[[i]]) == "try-error") 
            CI[[i]] <- confint.default(models[[i]], level = self$options$ciWidth/100)
        CILO <- try(confint(models[[i]], level = self$options$ciWidthOR/100), 
            silent = TRUE)
        if (class(CILO[[i]]) == "try-error") 
            CILO <- confint.default(models[[i]], level = self$options$ciWidthOR/100)
        CIOR[[i]] <- exp(CILO)
    }
    if (length(formulas) > 1) 
        lrTest <- do.call(stats::anova, c(models, test = "Chisq"))
    else lrTest <- NULL
})
where 3: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
where 4: suppressWarnings({
    suppressMessages({
        models <- list()
        modelTest <- list()
        lrTestTerms <- list()
        dev <- list()
        AIC <- list()
        BIC <- list()
        pseudoR <- list()
        CI <- list()
        CIOR <- list()
        nullFormula <- as.formula(paste0(jmvcore::toB64(self$options$dep), 
            "~ 1"))
        nullModel <- MASS::polr(nullFormula, data = data, model = TRUE, 
            Hess = TRUE)
        null <- list(dev = nullModel$deviance, df = nullModel$edf)
        for (i in seq_along(formulas)) {
            models[[i]] <- MASS::polr(formulas[[i]], data = data, 
                model = TRUE, Hess = TRUE)
            models[[i]]$call$formula <- formulas[[i]]
            lrTestTerms[[i]] <- car::Anova(models[[i]], test = "LR", 
                type = 3, singular.ok = TRUE)
            modelTest[[i]] <- private$.modelTest(models[[i]], 
                null)
            dev[[i]] <- models[[i]]$deviance
            AIC[[i]] <- stats::AIC(models[[i]])
            BIC[[i]] <- stats::BIC(models[[i]])
            pseudoR[[i]] <- private$.pseudoR2(models[[i]], null)
            CI[[i]] <- try(confint(models[[i]], level = self$options$ciWidth/100), 
                silent = TRUE)
            if (class(CI[[i]]) == "try-error") 
                CI[[i]] <- confint.default(models[[i]], level = self$options$ciWidth/100)
            CILO <- try(confint(models[[i]], level = self$options$ciWidthOR/100), 
                silent = TRUE)
            if (class(CILO[[i]]) == "try-error") 
                CILO <- confint.default(models[[i]], level = self$options$ciWidthOR/100)
            CIOR[[i]] <- exp(CILO)
        }
        if (length(formulas) > 1) 
            lrTest <- do.call(stats::anova, c(models, test = "Chisq"))
        else lrTest <- NULL
    })
})
where 5: private$.compute(data)
where 6: private$.run()
where 7: eval(expr)
where 8: try({
    result <- private$.run()
    for (addon in private$.addons) {
        private$.checkpoint()
        addon$.__enclos_env__$private$.run()
    }
}, silent = TRUE)
where 9: analysis$run()
where 10: logRegOrd(data = df, dep = y, covs = vars(x1, x2), blocks = list(list("x1", 
    "x2")))

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
 --- function search by body ---
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(CI[[i]]) == "try-error") CI[[i]] <- confint.default(models[[i]],  : 
  the condition has length > 1
Calls: logRegOrd ... <Anonymous> -> try -> eval -> <Anonymous> -> <Anonymous>
Execution halted