Error(s) in re-building vignettes:
  ...
--- re-building ‘turboEM.Rnw’ using Sweave
Loading required package: doParallel
Loading required package: foreach
Loading required package: iterators
Loading required package: parallel
Loading required package: numDeriv
Loading required package: quantreg
Loading required package: SparseM

Attaching package: ‘SparseM’

The following object is masked from ‘package:base’:

    backsolve


Attaching package: ‘turboEM’

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

    grad, hessian

 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
turboEM
 --- call from context --- 
turboem(par = c(0.5, 1, 3), fixptfn = fixptfn, objfn = objfn, 
    method = c("em", "squarem", "pem"), y = y)
 --- call from argument --- 
if (class(control.method) != "list") stop("'control.method' must be of class 'list'")
 --- R stacktrace ---
where 1: turboem(par = c(0.5, 1, 3), fixptfn = fixptfn, objfn = objfn, 
    method = c("em", "squarem", "pem"), y = y)
where 2: eval(expr, .GlobalEnv)
where 3: eval(expr, .GlobalEnv)
where 4: withVisible(eval(expr, .GlobalEnv))
where 5: doTryCatch(return(expr), name, parentenv, handler)
where 6: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 7: tryCatchList(expr, classes, parentenv, handlers)
where 8: 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 9: try(withVisible(eval(expr, .GlobalEnv)), silent = TRUE)
where 10: evalFunc(ce, options)
where 11: tryCatchList(expr, classes, parentenv, handlers)
where 12: tryCatch(evalFunc(ce, options), finally = {
    cat("\n")
    sink()
})
where 13: driver$runcode(drobj, chunk, chunkopts)
where 14: utils::Sweave(...)
where 15: engine$weave(file, quiet = quiet, encoding = enc)
where 16: doTryCatch(return(expr), name, parentenv, handler)
where 17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 18: tryCatchList(expr, classes, parentenv, handlers)
where 19: 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 20: tools:::buildVignettes(dir = "/home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/turboEM.Rcheck/vign_test/turboEM", 
    ser_elibs = "/home/hornik/tmp/scratch/RtmpWtz0bu/file1e7133cea54.rds")

 --- value of length: 2 type: logical ---
[1] TRUE TRUE
 --- function from context --- 
function (par, fixptfn, objfn = NULL, method = c("em", "squarem", 
    "pem", "decme", "qn"), boundary = NULL, pconstr = NULL, project = NULL, 
    parallel = FALSE, ..., control.method = replicate(length(method), 
        list()), control.run = list()) 
{
    method <- tolower(method)
    method <- match.arg(method, several.ok = TRUE)
    if (class(control.method) != "list") 
        stop("'control.method' must be of class 'list'")
    if (length(method) == 1 & class(control.method[[1]]) != "list") 
        control.method <- list(control.method)
    if (length(control.method) != length(method)) 
        stop("The number of components of 'control.method' must be equal to the number of methods being compared")
    for (j in seq_along(method)) if (class(control.method[[j]]) != 
        "list") 
        stop("each component of 'control.method' must be of class 'list'")
    if (missing(objfn)) 
        objfn <- NULL
    control.run.default <- list(convtype = "parameter", tol = 1e-07, 
        stoptype = "maxiter", maxiter = 1500, maxtime = 60, convfn.user = NULL, 
        stopfn.user = NULL, trace = FALSE, keep.objfval = FALSE)
    namc <- names(control.run)
    if (!all(namc %in% names(control.run.default))) {
        stop("unknown names in control.run: ", namc[!(namc %in% 
            names(control.run.default))])
    }
    control.run <- modifyList(control.run.default, control.run)
    pars <- matrix(NA, length(method), length(par))
    rownames(pars) <- method
    objfeval <- fpeval <- itr <- value.objfn <- vector("numeric", 
        length(method))
    convergence <- fail <- vector("logical", length(method))
    errors <- vector("character", length(method))
    runtime <- matrix(NA, length(method), 3)
    colnames(runtime) <- c("user", "system", "elapsed")
    if (!control.run$keep.objfval) {
        trace.objfval <- NULL
    }
    else {
        trace.objfval <- vector("list", length(method))
    }
    if (parallel) {
        resall <- foreach(j = seq_along(method), .packages = "turboEM", 
            .errorhandling = "pass") %dopar% accelerate(par = par, 
            fixptfn = fixptfn, objfn = objfn, boundary = boundary, 
            method = method[j], pconstr = pconstr, project = project, 
            ..., control = modifyList(control.run, control.method[[j]]))
    }
    else {
        resall <- foreach(j = seq_along(method), .packages = "turboEM", 
            .errorhandling = "pass") %do% accelerate(par = par, 
            fixptfn = fixptfn, objfn = objfn, boundary = boundary, 
            method = method[j], pconstr = pconstr, project = project, 
            ..., control = modifyList(control.run, control.method[[j]]))
    }
    for (j in seq_along(method)) {
        if (control.run$trace) 
            cat(paste("Method ", j, ":  \n", sep = ""))
        res <- resall[[j]]
        if (!"turboem" %in% class(res)) {
            fail[j] <- TRUE
            errors[j] <- as.character(res)
            pars[j, ] <- NA
            itr[j] <- NA
            fpeval[j] <- NA
            objfeval[j] <- NA
            value.objfn[j] <- NA
            convergence[j] <- NA
            if (control.run$keep.objfval) {
                trace.objfval[[j]] <- NA
            }
        }
        else {
            errors[j] <- NA
            pars[j, ] <- res$par
            itr[j] <- res$itr
            fpeval[j] <- res$fpeval
            objfeval[j] <- res$objfeval
            value.objfn[j] <- res$value.objfn
            convergence[j] <- res$convergence
            runtime[j, ] <- round(res$runtime[1:3], 3)
            if (control.run$keep.objfval) {
                trace.objfval[[j]] <- res$trace.objfval
            }
            control.method[[j]] <- res$control
        }
    }
    lst <- list(...)
    arg.names <- names(lst)
    if (is.null(objfn)) {
        obfjn.return <- NULL
    }
    else {
        obfjn.return <- objfn
        formals(obfjn.return)[arg.names] <- lst
    }
    formals(fixptfn)[arg.names] <- lst
    if (!is.null(pconstr)) {
        sel <- names(formals(pconstr))[names(formals(pconstr)) %in% 
            arg.names]
        formals(pconstr)[sel] <- lst[sel]
    }
    ret <- list(fail = fail, value.objfn = value.objfn, itr = itr, 
        fpeval = fpeval, objfeval = objfeval, convergence = convergence, 
        runtime = runtime, errors = errors, pars = pars, method = method, 
        trace.objfval = trace.objfval, control.method = control.method, 
        control.run = control.run, fixptfn = fixptfn, objfn = obfjn.return, 
        pconstr = pconstr, project = project)
    class(ret) <- "turbo"
    return(ret)
}
<bytecode: 0x562df18598b0>
<environment: namespace:turboEM>
 --- function search by body ---
Function turboem in namespace turboEM has this body.
 ----------- END OF FAILURE REPORT -------------- 

Error: processing vignette 'turboEM.Rnw' failed with diagnostics:
 chunk 6 (label = fit1) 
Error in if (class(control.method) != "list") stop("'control.method' must be of class 'list'") : 
  the condition has length > 1

--- failed re-building ‘turboEM.Rnw’

SUMMARY: processing the following file failed:
  ‘turboEM.Rnw’

Error: Vignette re-building failed.
Execution halted