Error(s) in re-building vignettes:
  ...
--- re-building ‘systemfit.Rnw’ using Sweave
Loading required package: Matrix
Loading required package: car
Loading required package: carData
Loading required package: lmtest
Loading required package: zoo

Attaching package: ‘zoo’

The following objects are masked from ‘package:base’:

    as.Date, as.Date.numeric


Please cite the 'systemfit' package as:
Arne Henningsen and Jeff D. Hamann (2007). systemfit: A Package for Estimating Systems of Simultaneous Equations in R. Journal of Statistical Software 23(4), 1-40. http://www.jstatsoft.org/v23/i04/.

If you have questions, suggestions, or comments regarding the 'systemfit' package, please use a forum or 'tracker' at systemfit's R-Forge site:
https://r-forge.r-project.org/projects/systemfit/
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
systemfit
 --- call from context --- 
.calcResidCov(resids, methodResidCov = control$methodResidCov, 
    validObsEq = validObsEq, nCoefEq = nCoefLiEq, xEq = xMatEq, 
    centered = control$centerResiduals, useMatrix = control$useMatrix, 
    solvetol = control$solvetol)
 --- call from argument --- 
if (class(resids) == "data.frame") {
    resids <- as.matrix(resids)
    validObsEq <- !is.na(resids)
    eqNames <- names(resids)
} else if (!is.null(validObsEq)) {
    residMat <- matrix(NA, nrow = nrow(validObsEq), ncol = ncol(validObsEq))
    for (i in 1:ncol(validObsEq)) {
        residMat[validObsEq[, i], i] <- resids[(1 + sum(validObsEq[, 
            0:(i - 1)])):(sum(validObsEq[, 1:i]))]
    }
    resids <- residMat
    rm(residMat)
} else {
    stop("internal error in .calcResidCov: if argument 'validObsEq'", 
        " is not provided, argument 'resids' must be a data.frame'")
}
 --- R stacktrace ---
where 1: .calcResidCov(resids, methodResidCov = control$methodResidCov, 
    validObsEq = validObsEq, nCoefEq = nCoefLiEq, xEq = xMatEq, 
    centered = control$centerResiduals, useMatrix = control$useMatrix, 
    solvetol = control$solvetol)
where 2: systemfit(systemfitModel$formula, method = "SUR", data = systemfitModel$data, 
    useMatrix = FALSE)
where 3: system.time(fitTrad <- systemfit(systemfitModel$formula, method = "SUR", 
    data = systemfitModel$data, useMatrix = FALSE))
where 4: eval(expr, .GlobalEnv)
where 5: eval(expr, .GlobalEnv)
where 6: withVisible(eval(expr, .GlobalEnv))
where 7: doTryCatch(return(expr), name, parentenv, handler)
where 8: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 9: tryCatchList(expr, classes, parentenv, handlers)
where 10: 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 11: try(withVisible(eval(expr, .GlobalEnv)), silent = TRUE)
where 12: evalFunc(ce, options)
where 13: tryCatchList(expr, classes, parentenv, handlers)
where 14: tryCatch(evalFunc(ce, options), finally = {
    cat("\n")
    sink()
})
where 15: driver$runcode(drobj, chunk, chunkopts)
where 16: utils::Sweave(...)
where 17: engine$weave(file, quiet = quiet, encoding = enc)
where 18: doTryCatch(return(expr), name, parentenv, handler)
where 19: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 20: tryCatchList(expr, classes, parentenv, handlers)
where 21: tryCatch({
    engine$weave(file, quiet = quiet, encoding = enc)
    setwd(startdir)
    output <- find_vignette_product(name, by = "weave", engine = engine)
    if (!have.makefile && vignette_is_tex(output)) {
        texi2pdf(file = output, clean = FALSE, quiet = quiet)
        output <- find_vignette_product(name, by = "texi2pdf", 
            engine = engine)
    }
    outputs <- c(outputs, output)
}, error = function(e) {
    thisOK <<- FALSE
    fails <<- c(fails, file)
    message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s", 
        file, conditionMessage(e)))
})
where 22: tools:::buildVignettes(dir = "/home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/systemfit.Rcheck/vign_test/systemfit", 
    ser_elibs = "/home/hornik/tmp/scratch/RtmpC4Pz5i/file3d581c82c82f.rds")

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (resids, methodResidCov, validObsEq = NULL, nCoefEq = NULL, 
    xEq = NULL, diag = FALSE, centered = FALSE, useMatrix = FALSE, 
    solvetol = .Machine$double.eps) 
{
    eqNames <- NULL
    if (class(resids) == "data.frame") {
        resids <- as.matrix(resids)
        validObsEq <- !is.na(resids)
        eqNames <- names(resids)
    }
    else if (!is.null(validObsEq)) {
        residMat <- matrix(NA, nrow = nrow(validObsEq), ncol = ncol(validObsEq))
        for (i in 1:ncol(validObsEq)) {
            residMat[validObsEq[, i], i] <- resids[(1 + sum(validObsEq[, 
                0:(i - 1)])):(sum(validObsEq[, 1:i]))]
        }
        resids <- residMat
        rm(residMat)
    }
    else {
        stop("internal error in .calcResidCov: if argument 'validObsEq'", 
            " is not provided, argument 'resids' must be a data.frame'")
    }
    nEq <- ncol(validObsEq)
    result <- matrix(0, nEq, nEq)
    if (centered) {
        for (i in 1:nEq) {
            resids[, i] <- resids[, i] - mean(resids[validObsEq[, 
                i], i])
        }
    }
    validObsAll <- rowSums(!validObsEq) == 0
    for (i in 1:nEq) {
        for (j in ifelse(diag, i, 1):ifelse(diag, i, nEq)) {
            if (methodResidCov == "noDfCor") {
                result[i, j] <- sum(resids[validObsAll, i] * 
                  resids[validObsAll, j])/sum(validObsAll)
            }
            else if (methodResidCov == "geomean") {
                result[i, j] <- sum(resids[validObsAll, i] * 
                  resids[validObsAll, j])/sqrt((sum(validObsAll) - 
                  nCoefEq[i]) * (sum(validObsAll) - nCoefEq[j]))
            }
            else if (methodResidCov == "Theil") {
                result[i, j] <- sum(resids[validObsAll, i] * 
                  resids[validObsAll, j])/(sum(validObsAll) - 
                  nCoefEq[i] - nCoefEq[j] + sum(diag(solve(crossprod(xEq[[i]]), 
                  tol = solvetol) %*% crossprod(xEq[[i]], xEq[[j]]) %*% 
                  solve(crossprod(xEq[[j]]), tol = solvetol) %*% 
                  crossprod(xEq[[j]], xEq[[i]]))))
            }
            else if (methodResidCov == "max") {
                result[i, j] <- sum(resids[validObsAll, i] * 
                  resids[validObsAll, j])/(sum(validObsAll) - 
                  max(nCoefEq[i], nCoefEq[j]))
            }
            else {
                stop(paste("Argument 'methodResidCov' must be either 'noDfCor',", 
                  "'geomean', 'max', or 'Theil'."))
            }
        }
    }
    if (!is.null(eqNames)) {
        rownames(result) <- eqNames
        colnames(result) <- eqNames
    }
    if (useMatrix) {
        result <- as(result, "dspMatrix")
    }
    return(result)
}
<bytecode: 0x55f180e9f8e8>
<environment: namespace:systemfit>
 --- function search by body ---
Function .calcResidCov in namespace systemfit has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1