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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: autoSelectSubset
> ### Title: Autoselect Subset for Aggregated Effects
> ### Aliases: autoSelectSubset
> 
> ### ** Examples
> 
> m1 <- effectLite(y="dv", z=c("z1"), k=c("k1"), x="x", 
+ control="control", data=example01, fixed.cell=TRUE, fixed.z=TRUE)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
EffectLiteR
 --- call from context --- 
elrMainHypothesisTests(obj, est, vcov.def, resid.df, stat)
 --- call from argument --- 
if (class(Wald) == "try-error") {
    Wald <- NA
}
 --- R stacktrace ---
where 1: elrMainHypothesisTests(obj, est, vcov.def, resid.df, stat)
where 2: computeResults(obj)
where 3: effectLite(y = "dv", z = c("z1"), k = c("k1"), x = "x", control = "control", 
    data = example01, fixed.cell = TRUE, fixed.z = TRUE)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (obj, est, vcov.def, resid.df, stat) 
{
    ng <- obj@input@ng
    nk <- obj@input@nk
    nz <- obj@input@nz
    Egx <- obj@parnames@Egx
    gammas <- obj@parnames@gammas
    constrainedgammas <- obj@parnames@constrainedgammas
    Wald <- try(t(est[Egx]) %*% solve(vcov.def[Egx, Egx]) %*% 
        est[Egx], silent = TRUE)
    if (class(Wald) == "try-error") {
        Wald <- NA
    }
    Wald.df <- length(Egx)
    Wald.pvalue <- 1 - pchisq(Wald, df = Wald.df)
    hypothesis1 <- c(Wald, Wald.df, Wald.pvalue)
    if (nz == 0 & nk == 1) {
        hypotheses <- data.frame(rbind(hypothesis1))
        names(hypotheses) <- c("Wald Chi-Square", "df", "p-value")
        if (stat == "Ftest") {
            Fvalue <- Wald/Wald.df
            F.df1 <- Wald.df
            F.df2 <- resid.df
            F.pvalue <- 1 - pf(Fvalue, F.df1, F.df2)
            hypotheses <- data.frame(rbind(c(Fvalue, F.df1, F.df2, 
                F.pvalue)))
            names(hypotheses) <- c("F value", "df1", "df2", "p-value")
        }
        row.names(hypotheses) <- "No average effects"
        return(hypotheses)
    }
    gammas_tmp <- c(matrix(c(gammas), ncol = ng)[-1, 1])
    idx <- which(gammas_tmp %in% constrainedgammas)
    if (length(idx) > 0) {
        gammas_tmp <- gammas_tmp[-idx]
    }
    Wald <- try(t(est[gammas_tmp]) %*% solve(vcov.def[gammas_tmp, 
        gammas_tmp]) %*% est[gammas_tmp], silent = TRUE)
    if (class(Wald) == "try-error") {
        Wald <- NA
    }
    Wald.df <- length(gammas_tmp)
    Wald.pvalue <- 1 - pchisq(Wald, df = Wald.df)
    hypothesis2 <- c(Wald, Wald.df, Wald.pvalue)
    gammas_tmp <- c(matrix(c(gammas), ncol = ng)[-1, -1])
    idx <- which(gammas_tmp %in% constrainedgammas)
    if (length(idx) > 0) {
        gammas_tmp <- gammas_tmp[-idx]
    }
    Wald <- try(t(est[gammas_tmp]) %*% solve(vcov.def[gammas_tmp, 
        gammas_tmp]) %*% est[gammas_tmp], silent = TRUE)
    if (class(Wald) == "try-error") {
        Wald <- NA
    }
    Wald.df <- length(gammas_tmp)
    Wald.pvalue <- 1 - pchisq(Wald, df = Wald.df)
    hypothesis3 <- c(Wald, Wald.df, Wald.pvalue)
    gammas_tmp <- matrix(c(gammas), ncol = ng)[, -1]
    idx <- which(gammas_tmp %in% constrainedgammas)
    if (length(idx) > 0) {
        gammas_tmp <- gammas_tmp[-idx]
    }
    Wald <- try(t(est[gammas_tmp]) %*% solve(vcov.def[gammas_tmp, 
        gammas_tmp]) %*% est[gammas_tmp], silent = TRUE)
    if (class(Wald) == "try-error") {
        Wald <- NA
    }
    Wald.df <- length(gammas_tmp)
    Wald.pvalue <- 1 - pchisq(Wald, df = Wald.df)
    hypothesis4 <- c(Wald, Wald.df, Wald.pvalue)
    hypotheses <- data.frame(rbind(hypothesis1, hypothesis2, 
        hypothesis3, hypothesis4))
    names(hypotheses) <- c("Wald Chi-Square", "df", "p-value")
    if (stat == "Ftest") {
        Fvalue <- hypotheses$Wald/hypotheses$df
        F.df1 <- hypotheses$df
        F.df2 <- resid.df
        F.pvalue <- 1 - pf(Fvalue, F.df1, F.df2)
        hypotheses <- data.frame(Fvalue, F.df1, F.df2, F.pvalue)
        names(hypotheses) <- c("F value", "df1", "df2", "p-value")
    }
    row.names(hypotheses) <- c("No average effects", "No covariate effects in control group", 
        "No treatment*covariate interaction", "No treatment effects")
    return(hypotheses)
}
<bytecode: 0x56472ccafe08>
<environment: namespace:EffectLiteR>
 --- function search by body ---
Function elrMainHypothesisTests in namespace EffectLiteR has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1