Running examples in ‘abn-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: compareDag
> ### Title: Compare two DAGs
> ### Aliases: compareDag
> ### Keywords: utilities
> 
> ### ** Examples
> 
> test.m <- matrix(data = 0, nrow = 3, ncol = 3)
>     
> ref.m <- matrix(data = c(0,0,0,
+                           1,0,0,
+                           1,0,0), nrow = 3, ncol = 3)
>                           
> compareDag(ref = ref.m, test = test.m)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
abn
 --- call from context --- 
validate_abnDag(ref, data.df = node.names, returnDAG = TRUE)
 --- call from argument --- 
if (class(dag) == "abnDag") dag <- dag$dag
 --- R stacktrace ---
where 1: validate_abnDag(ref, data.df = node.names, returnDAG = TRUE)
where 2: compareDag(ref = ref.m, test = test.m)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (dag, data.df = NULL, returnDag = TRUE, ...) 
{
    if (class(dag) == "abnDag") 
        dag <- dag$dag
    if (class(dag) == "formula") {
        if (is.null(data.df)) 
            stop("DAG specification with formula requires a named data frame or named vector")
        name <- if (is.matrix(data.df)) 
            colnames(data.df)
        else names(data.df)
        if (is.null(name)) 
            stop("Improperly named object \"data.df\" for DAG specification")
        dag <- formula.abn(f = dag, name = name)
    }
    if (is.matrix(dag)) {
        dimm <- dim(dag)
        if (dimm[1] != dimm[2]) 
            stop("DAG matrix is not square")
        if (any(diag(dag) != 0)) 
            stop("DAG matrix contains trivial cycles (nonzero values on diagonal)")
        if (!is.null(data.df)) {
            name <- if (is.matrix(data.df)) 
                colnames(data.df)
            else names(data.df)
            if (length(name) != dimm[1]) 
                stop("DAG matrix not coherent with names")
            colnames(dag) <- rownames(dag) <- name
        }
        else {
            if (any(colnames(dag) != rownames(dag))) 
                stop("DAG matrix with incoherent row-/colnames")
        }
        res <- .Call("checkforcycles", as.integer(dag), dimm[1], 
            PACKAGE = "abn")
        if (returnDag) 
            return(dag)
        else return(TRUE)
    }
    else {
        stop("DAG specification with should be via formula or matrix")
    }
}
<bytecode: 0x564187c142f8>
<environment: namespace:abn>
 --- function search by body ---
Function validate_abnDag in namespace abn has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1