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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: asynchHK
> ### Title: Regression Analysis for Time-Invariant Coefficients Using
> ###   Half-Kernel Estimation
> ### Aliases: asynchHK
> 
> ### ** Examples
> 
> 
>   data(asynchDataTI)
> 
>   res <- asynchHK(data.x = TI.x, 
+                   data.y = TI.y,
+                   bw = c(0.05, 0.03),
+                   kType = "epan", 
+                   lType = "identity")
Bandwidth:  0.05 
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
AsynchLong
 --- call from context --- 
SD(data.y = data.y, data.x = data.x, bandwidth = bandwidth[bd], 
    kType = kType, lType = lType, bHat = bHat[bd, ], tt = time, 
    xIs = xIs, yIs = yIs, nPatients = nPatients, distanceFunction = distanceFunction)
 --- call from argument --- 
if (class(invdU) == "try-error") {
    cat("Unable to invert derivative of estimating equation.\n")
    stop(attr(invdU, "condition"), call. = FALSE)
}
 --- R stacktrace ---
where 1: SD(data.y = data.y, data.x = data.x, bandwidth = bandwidth[bd], 
    kType = kType, lType = lType, bHat = bHat[bd, ], tt = time, 
    xIs = xIs, yIs = yIs, nPatients = nPatients, distanceFunction = distanceFunction)
where 2: kernelFixed(data.y = data.y, data.x = data.x, bandwidth = bw, 
    kType = kType, lType = lType, time = NULL, distanceFunction = "distanceHK", 
    ...)
where 3: asynchHK(data.x = TI.x, data.y = TI.y, bw = c(0.05, 0.03), kType = "epan", 
    lType = "identity")

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (bHat, data.y, data.x, bandwidth, kType, lType, nPatients, 
    xIs, yIs, distanceFunction, tt = NULL) 
{
    argList <- list(xIs = xIs, data.x = data.x, data.y = data.y, 
        bandwidth = bandwidth, kType = kType, tt = tt)
    dis <- do.call(what = distanceFunction, args = argList)
    xIs <- dis$xIs
    dis <- dis$dis
    res <- cmp_duFunc(pars = bHat, data.y = data.y, data.x = data.matrix(data.x[, 
        3L:ncol(data.x), drop = FALSE]), kernel = dis, lType = lType, 
        xIs = xIs, yIs = yIs, nPatients = nPatients)
    dU <- res$du
    var <- res$var
    var <- t(var) %*% var
    invdU <- try(solve(dU), silent = TRUE)
    if (class(invdU) == "try-error") {
        cat("Unable to invert derivative of estimating equation.\n")
        stop(attr(invdU, "condition"), call. = FALSE)
    }
    var <- invdU %*% var %*% t(invdU)
    return(sqrt(diag(var)))
}
<bytecode: 0x3263e48>
<environment: namespace:AsynchLong>
 --- function search by body ---
Function SD in namespace AsynchLong has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(invdU) == "try-error") { : 
  the condition has length > 1
Calls: asynchHK -> kernelFixed -> SD
Execution halted