Running examples in 'SurvLong-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: fullKernel
> ### Title: Full Kernel Estimation with Forward and Backward Lagged
> ###   Covariates
> ### Aliases: fullKernel
> 
> ### ** Examples
> 
> 
>   data(SurvLongData)
> 
>   exp <- fullKernel(X = X, Z = Z, tau = 1.0, bw = 0.015)

Bandwidth: 0.015
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
SurvLong
 --- call from context --- 
kernelFixed(X = X, Z = Z, tau = tau, bandwidth = bw, kType = kType, 
    tol = tol, maxiter = maxiter, scoreFunction = "scoreFull")
 --- call from argument --- 
if (class(invdU) == "try-error") {
    cat("Unable to invert derivative of estimating equation.\n")
    stop(attr(invdU, "condition"))
}
 --- R stacktrace ---
where 1: kernelFixed(X = X, Z = Z, tau = tau, bandwidth = bw, kType = kType, 
    tol = tol, maxiter = maxiter, scoreFunction = "scoreFull")
where 2: fullKernel(X = X, Z = Z, tau = 1, bw = 0.015)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (X, Z, tau, bandwidth, kType, tol, maxiter, scoreFunction) 
{
    pre <- preprocessInputs(data.x = X, data.z = Z)
    X <- pre$data.x
    Z <- pre$data.z
    nCov <- ncol(Z) - 2L
    rm(pre)
    lbd <- length(bandwidth)
    bHat <- matrix(data = 0, nrow = lbd, ncol = nCov, dimnames = list(NULL, 
        colnames(Z)[3L:(nCov + 2L)]))
    sdVec <- bHat
    guess <- NULL
    results <- matrix(data = 0, nrow = nCov, ncol = 4L, dimnames = list(paste("beta", 
        0L:{
            nCov - 1L
        }, sep = ""), c("estimate", "stdErr", "z-value", "p-value")))
    for (bd in 1L:lbd) {
        cat("\nBandwidth: ", bandwidth[bd], "\n", sep = "")
        bHat[bd, ] <- betaEst(Z = Z, X = X, tau = tau, h = bandwidth[bd], 
            kType = kType, betaGuess = guess, tol = tol, maxiter = maxiter, 
            scoreFunction = scoreFunction)
        guess <- bHat[bd, ]
        argList <- list(beta = bHat[bd, ], Z = Z, X = X, tau = tau, 
            h = bandwidth[bd], kType = kType)
        score <- do.call(what = scoreFunction, args = argList)
        invdU <- try(solve(score$dUdBeta), silent = TRUE)
        if (class(invdU) == "try-error") {
            cat("Unable to invert derivative of estimating equation.\n")
            stop(attr(invdU, "condition"))
        }
        sig <- invdU %*% (score$mMatrix) %*% invdU
        sdVec[bd, ] <- sqrt(diag(sig))
        results[, 1L] <- bHat[bd, ]
        results[, 2L] <- sdVec[bd, ]
        results[, 3L] <- bHat[bd, ]/sdVec[bd, ]
        results[, 4L] <- 2 * pnorm(-abs(results[, 3L]))
        print(results)
        cat("\n")
    }
    zv <- bHat/sdVec
    pv <- 2 * pnorm(-abs(zv))
    return(list(betaHat = bHat, stdErr = sdVec, zValue = zv, 
        pValue = pv))
}
<bytecode: 0x24d2328>
<environment: namespace:SurvLong>
 --- function search by body ---
Function kernelFixed in namespace SurvLong has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(invdU) == "try-error") { : 
  the condition has length > 1
Calls: fullKernel -> kernelFixed
Execution halted