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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: logreg
> ### Title: Logic Regression
> ### Aliases: logreg
> ### Keywords: logic methods nonparametric tree
> 
> ### ** Examples
> 
> data(logreg.savefit1,logreg.savefit2,logreg.savefit3,logreg.savefit4,
+      logreg.savefit5,logreg.savefit6,logreg.savefit7,logreg.testdat)
> 
> myanneal <- logreg.anneal.control(start = -1, end = -4, iter = 500, update = 100)
> # in practie we would use 25000 iterations or far more - the use of 500 is only
> # to have the examples run fast
> ## Not run: myanneal <- logreg.anneal.control(start = -1, end = -4, iter = 25000, update = 500)
> fit1 <- logreg(resp = logreg.testdat[,1], bin=logreg.testdat[, 2:21], type = 2,
+                select = 1, ntrees = 2, anneal.control = myanneal)
  
log-temp current score    best score        acc / rej /sing    current parameters
  -1.000        1.4941        1.4941     0(  0)     0     0    2.886    0.000    0.000
  -1.600        1.0485        1.0287    45(  0)    55     0    1.841    0.088    2.143
  -2.200        1.0597        1.0287    50(  2)    48     0    1.972   -0.116    2.109
  -2.800        1.0298        1.0260    19(  2)    79     0    1.590    0.393    2.146
  -3.400        0.9885        0.9885     4( 14)    82     0    0.888    1.111    2.116
  -4.000        0.9885        0.9885     0(  2)    98     0    0.888    1.111    2.116
> # the best score should be in the 0.95-1.10 range
> plot(fit1)
> # you'll probably see X1-X4 as well as a few noise predictors
> # use logreg.savefit1 for the results with 25000 iterations
>  plot(logreg.savefit1)
>  print(logreg.savefit1)
score 0.966 
1.98 -1.3 * ( ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
LogicReg
 --- call from context --- 
print.logregtree(tree[l3 == 2, ], nms, notnms, pstyle)
 --- call from argument --- 
if (class(x) == "logregtree") x <- x$trees
 --- R stacktrace ---
where 1: print.logregtree(tree[l3 == 2, ], nms, notnms, pstyle)
where 2: print.logregtree(x$trees[[j]], pstyle = pstyle)
where 3: print.logregmodel(x$model, pstyle = pstyle)
where 4: print.logreg(logreg.savefit1)
where 5: print(logreg.savefit1)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (x, nms, notnms, pstyle = 1, ...) 
{
    if (class(x) == "logregtree") 
        x <- x$trees
    tree <- x
    tree <- matrix(c(unlist(tree)), ncol = 5)
    if (missing(nms)) {
        i <- max(tree[, 3]) + 1
        nms <- rep("X", i)
        for (j in 1:i) nms[j] <- paste("X", j, sep = "")
    }
    if (missing(notnms)) {
        notnms <- nms
        for (i in 1:length(notnms)) {
            if (pstyle != 1) 
                notnms[i] <- paste("not", notnms[i])
            else notnms[i] <- paste("(not ", notnms[i], ")", 
                sep = "")
        }
    }
    l1 <- length(tree[, 1])
    if (tree[1, 2] == 1 || tree[1, 2] == 2) {
        l3 <- rep(l1, 0)
        l3[1:3] <- 1:3
        if (l1 > 3) {
            l2 <- floor(l1/2)
            for (i in 2:l2) {
                j <- c(2 * i, 2 * i + 1)
                j <- j[j <= l1]
                l3[j] <- l3[i]
            }
        }
        oper <- "and"
        if (tree[1, 2] == 2) 
            oper <- "or"
        cat("(")
        print.logregtree(tree[l3 == 2, ], nms, notnms, pstyle)
        if (pstyle == 1) 
            cat(" ", oper, " ", sep = "")
        else cat(" ) ", oper, " ( ", sep = "")
        print.logregtree(tree[l3 == 3, ], nms, notnms, pstyle)
        cat(")")
    }
    else {
        if (tree[1, 2] == 0) 
            cat("(0) ")
        else {
            if (tree[1, 4] == 1) 
                cat(notnms[tree[1, 3]])
            else cat(nms[tree[1, 3]])
        }
    }
    invisible()
}
<bytecode: 0x78783c8>
<environment: namespace:LogicReg>
 --- function search by body ---
Function print.logregtree in namespace LogicReg has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1