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

Warning in accelerate(par = par, fixptfn = fixptfn, objfn = objfn, boundary = boundary,  :
  If the parameter space is constrained, then pconstr should be provided for method='qn'
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
turboEM
 --- call from context --- 
mainfun(input, ctrl = ctrl.alg, fixptfn = fixptfn, objfn = objfn, 
    pconstr = pconstr, project = project, iter = iter, fpeval = fpeval, 
    objfeval = objfeval, boundary = boundary, ...)
 --- call from argument --- 
if (class(tmp) == "try-error") p.next <- pnew2 else {
    tmp1 <- V %*% tmp
    tmp2 <- crossprod(U, par - pnew)
    p.next <- as.vector(pnew - tmp1 %*% tmp2)
    if (!pconstr(pnew)) 
        pnew <- project(pnew)
}
 --- R stacktrace ---
where 1: mainfun(input, ctrl = ctrl.alg, fixptfn = fixptfn, objfn = objfn, 
    pconstr = pconstr, project = project, iter = iter, fpeval = fpeval, 
    objfeval = objfeval, boundary = boundary, ...)
where 2: accelerate(par = par, fixptfn = fixptfn, objfn = objfn, boundary = boundary, 
    method = method[j], pconstr = pconstr, project = project, 
    ..., control = modifyList(control.run, control.method[[j]]))
where 3: eval(xpr, envir = envir)
where 4: eval(xpr, envir = envir)
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(eval(xpr, envir = envir), error = function(e) e)
where 9: doTryCatch(return(expr), name, parentenv, handler)
where 10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 11: tryCatchList(expr, classes, parentenv, handlers)
where 12: tryCatch({
    repeat {
        args <- nextElem(it)
        if (obj$verbose) {
            cat(sprintf("evaluation # %d:\n", i))
            print(args)
        }
        for (a in names(args)) assign(a, args[[a]], pos = envir, 
            inherits = FALSE)
        r <- tryCatch(eval(xpr, envir = envir), error = function(e) e)
        if (obj$verbose) {
            cat("result of evaluating expression:\n")
            print(r)
        }
        tryCatch(accumulator(list(r), i), error = function(e) {
            cat("error calling combine function:\n")
            print(e)
            NULL
        })
        i <- i + 1
    }
}, error = function(e) {
    if (!identical(conditionMessage(e), "StopIteration")) 
        stop(simpleError(conditionMessage(e), expr))
})
where 13: e$fun(obj, substitute(ex), parent.frame(), e$data)
where 14: 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]]))
where 15: turboem(par = c(0.9, 1, 3), fixptfn = fixptfn, objfn = objfn, 
    boundary = boundary, y = y)
where 16: eval(expr, .GlobalEnv)
where 17: eval(expr, .GlobalEnv)
where 18: withVisible(eval(expr, .GlobalEnv))
where 19: doTryCatch(return(expr), name, parentenv, handler)
where 20: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 21: tryCatchList(expr, classes, parentenv, handlers)
where 22: 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 23: try(withVisible(eval(expr, .GlobalEnv)), silent = TRUE)
where 24: evalFunc(ce, options)
where 25: tryCatchList(expr, classes, parentenv, handlers)
where 26: tryCatch(evalFunc(ce, options), finally = {
    cat("\n")
    sink()
})
where 27: driver$runcode(drobj, chunk, chunkopts)
where 28: utils::Sweave(...)
where 29: engine$weave(file, quiet = quiet, encoding = enc)
where 30: doTryCatch(return(expr), name, parentenv, handler)
where 31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 32: tryCatchList(expr, classes, parentenv, handlers)
where 33: 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 34: tools:::buildVignettes(dir = "/home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/turboEM.Rcheck/vign_test/turboEM", 
    ser_elibs = "/home/hornik/tmp/scratch/Rtmpjc4Rcc/file531339f44183.rds")

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (input.quasiNewton, ctrl, fixptfn, objfn, pconstr, project, 
    iter, fpeval, objfeval, boundary, ...) 
{
    par <- input.quasiNewton$par
    pnew <- input.quasiNewton$pnew
    pnew2 <- input.quasiNewton$pnew2
    U <- input.quasiNewton$U
    V <- input.quasiNewton$V
    pold <- par
    tmp <- try(solve(crossprod(U, U - V)), silent = TRUE)
    if (class(tmp) == "try-error") 
        p.next <- pnew2
    else {
        tmp1 <- V %*% tmp
        tmp2 <- crossprod(U, par - pnew)
        p.next <- as.vector(pnew - tmp1 %*% tmp2)
        if (!pconstr(pnew)) 
            pnew <- project(pnew)
    }
    if (!pconstr(p.next)) 
        p.next <- pnew2
    if (!is.null(objfn)) {
        lnew <- objfn(p.next, ...)
        objfeval <- objfeval + 1
        if (any(p.next != pnew2)) {
            l2 <- objfn(pnew2, ...)
            objfeval <- objfeval + 1
            if (l2 < lnew) {
                p.next <- pnew2
                lnew <- l2
            }
        }
    }
    par <- p.next
    pnew <- fixptfn(par, ...)
    fpeval <- fpeval + 1
    U <- cbind(U[, -1], pnew - par)
    pnew2 <- fixptfn(pnew, ...)
    pfeval <- fpeval + 1
    V <- cbind(V[, -1], pnew2 - pnew)
    if (!is.null(objfn)) 
        return(list(output = list(par = par, pnew = pnew, pnew2 = pnew2, 
            V = V, U = U, objfval = lnew), fpeval = fpeval, objfeval = objfeval))
    return(list(output = list(par = par, pnew = pnew, pnew2 = pnew2, 
        V = V, U = U, objfval = NULL), fpeval = fpeval, objfeval = objfeval))
}
<environment: 0x55dc827c08f0>
 --- function search by body ---
Function bodyQuasiNewton in namespace turboEM has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1