Error(s) in re-building vignettes:
  ...
--- re-building 'methodology.Rnw' using Sweave
--- finished re-building 'methodology.Rnw'

--- re-building 'twoACexamples.Rnw' using Sweave
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
sensR
 --- call from context --- 
estimate.2AC(data = data, vcov = TRUE, warn = FALSE)
 --- call from argument --- 
if (class(vcov) != "try-error") {
    makeWarn <- TRUE
    res$coefficients[, 2] <- sqrt(diag(vcov))
    res$vcov <- vcov
}
 --- R stacktrace ---
where 1: estimate.2AC(data = data, vcov = TRUE, warn = FALSE)
where 2: twoAC(c(2, 2, 6))
where 3: eval(expr, .GlobalEnv)
where 4: eval(expr, .GlobalEnv)
where 5: withVisible(eval(expr, .GlobalEnv))
where 6: doTryCatch(return(expr), name, parentenv, handler)
where 7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 8: tryCatchList(expr, classes, parentenv, handlers)
where 9: 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 10: try(withVisible(eval(expr, .GlobalEnv)), silent = TRUE)
where 11: evalFunc(ce, options)
where 12: tryCatchList(expr, classes, parentenv, handlers)
where 13: tryCatch(evalFunc(ce, options), finally = {
    cat("\n")
    sink()
})
where 14: driver$runcode(drobj, chunk, chunkopts)
where 15: utils::Sweave(...)
where 16: engine$weave(file, quiet = quiet, encoding = enc)
where 17: doTryCatch(return(expr), name, parentenv, handler)
where 18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 19: tryCatchList(expr, classes, parentenv, handlers)
where 20: 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)
    }
}, error = function(e) {
    OK <<- FALSE
    message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s", 
        file, conditionMessage(e)))
})
where 21: tools:::.buildOneVignette("twoACexamples.Rnw", "/home/hornik/tmp/R.check/r-devel-clang/Work/PKGS/sensR.Rcheck/vign_test/sensR", 
    TRUE, FALSE, "twoACexamples", "UTF-8", "/tmp/Rtmp31cCkt/file4a6b4576f80e.rds")

 --- value of length: 2 type: logical ---
[1] TRUE TRUE
 --- function from context --- 
function (data, vcov = TRUE, warn = TRUE) 
{
    vcov <- as.logical(vcov)
    stopifnot(is.logical(vcov))
    nll <- function(par) {
        tau <- par[1]
        d.prime <- par[2]
        p1 <- pnorm(-tau, d.prime, sqrt(2))
        p12 <- pnorm(tau, d.prime, sqrt(2))
        prob <- c(p1, p12 - p1, 1 - p12)
        prob[prob <= 0] <- 1
        -sum(data * log(prob))
    }
    x <- data
    if (x[1] > 0 && x[2] == 0 && x[3] == 0) {
        tau <- 0
        d.prime <- -Inf
    }
    else if (x[1] == 0 && x[2] > 0 && x[3] == 0) {
        tau <- NA
        d.prime <- NA
    }
    else if (x[1] == 0 && x[2] == 0 && x[3] > 0) {
        tau <- 0
        d.prime <- Inf
    }
    else if (x[1] > 0 && x[2] > 0 && x[3] == 0) {
        d.prime <- -Inf
        tau <- NA
    }
    else if (x[1] == 0 && x[2] > 0 && x[3] > 0) {
        d.prime <- Inf
        tau <- NA
    }
    else {
        prob <- data/sum(data)
        gamma <- cumsum(prob)[-3]
        z <- qnorm(gamma) * sqrt(2)
        tau <- (z[2] - z[1])/2
        d.prime <- -z[1] - tau
    }
    prob <- data/sum(data)
    prob[prob <= 0] <- 1
    logLikMax <- sum(data * log(prob))
    coef <- matrix(NA, 2, 2, dimnames = list(c("tau", "d.prime"), 
        c("Estimate", "Std. Error")))
    coef[, 1] <- c(tau, d.prime)
    res <- list(coefficients = coef, data = data, logLik = logLikMax)
    if (vcov) {
        makeWarn <- TRUE
        if (all(is.finite(coef[, 1])) && tau > 0) {
            makeWarn <- FALSE
            hess <- hessian(nll, x = c(tau, d.prime), method = "Richardson", 
                method.args = list())
            vcov <- try(solve(hess), silent = TRUE)
            if (class(vcov) != "try-error") {
                makeWarn <- TRUE
                res$coefficients[, 2] <- sqrt(diag(vcov))
                res$vcov <- vcov
            }
        }
        if (warn && makeWarn) 
            warning("vcov and standard errors are not available", 
                call. = FALSE)
    }
    return(res)
}
<bytecode: 0x9898370>
<environment: namespace:sensR>
 --- function search by body ---
Function estimate.2AC in namespace sensR has this body.
 ----------- END OF FAILURE REPORT -------------- 

Error: processing vignette 'twoACexamples.Rnw' failed with diagnostics:
 chunk 2 (label = example1-1) 
Error in if (class(vcov) != "try-error") { : the condition has length > 1

--- failed re-building 'twoACexamples.Rnw'

SUMMARY: processing the following file failed:
  'twoACexamples.Rnw'

Error: Vignette re-building failed.
Execution halted