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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: alteval.ic
> ### Title: Design evaluation with interval censoring.
> ### Aliases: alteval.ic
> 
> ### ** Examples
> 
> # Evaluation of factorial design for interval censoring.
> x1 <- c(0, 1, 0, 1)
> x2 <- c(0, 0, 1, 1)
> allocation <- c(25, 25, 25, 25)
> facDes <- data.frame(x1, x2, allocation)
> 
> alteval.ic(facDes, "D", 30, 5, 2, 1, formula = ~ x1 + x2 + x1:x2,
+ coef = c(0, -4.086, -1.476, 0.01))
[1] 1303.696
> 
> alteval.ic(facDes, "U", 30, 5, 2, 1, formula = ~ x1 + x2 + x1:x2,
+ coef = c(0, -4.086, -1.476, 0.01), useCond = c(1.758, 3.159))
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
ALTopt
 --- call from context --- 
Uobj.ic(x, formula, coef, nf, t, k, alpha, useCond)
 --- call from argument --- 
if (class(c) == "try-error") return("cannot calculated ; information matrix is near singular") else PreVar(location = useCond, 
    formula = formula, nf = nf, infMtxInv = c)
 --- R stacktrace ---
where 1: Uobj.ic(x, formula, coef, nf, t, k, alpha, useCond)
where 2: alteval.ic(facDes, "U", 30, 5, 2, 1, formula = ~x1 + x2 + x1:x2, 
    coef = c(0, -4.086, -1.476, 0.01), useCond = c(1.758, 3.159))

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (x, formula, coef, nf, t, k, alpha, useCond) 
{
    X <- ExtendedForm(x, formula, nf)
    b <- coef
    dt <- t/k
    eta <- X %*% b
    temp1 <- exp(2 * eta)
    temp2 <- diag(temp1[, 1])
    sum <- 0
    for (j in 1:k) {
        c <- ((j - 1)^alpha - j^alpha) * dt^alpha
        temp3 <- c^2 * exp(-exp(eta) * (dt^alpha) * (j^alpha))
        temp4 <- temp3/(1 - exp(c * exp(eta)))
        sum = sum + temp4
    }
    W <- sum[, 1] * temp2
    XWX <- t(X) %*% W %*% X
    c <- try(qr.solve(XWX), silent = TRUE)
    if (class(c) == "try-error") 
        return("cannot calculated ; information matrix is near singular")
    else PreVar(location = useCond, formula = formula, nf = nf, 
        infMtxInv = c)
}
<bytecode: 0x17853a0>
<environment: namespace:ALTopt>
 --- function search by body ---
Function Uobj.ic in namespace ALTopt has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1