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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: hgm.ncorthant
> ### Title: The function hgm.ncorthant evaluates the orthant probability.
> ### Aliases: hgm.ncorthant
> ### Keywords: Normalization constant Holonomic gradient method HGM Orthant
> ###   probability
> 
> ### ** Examples
> 
> ## =====================================================
> ## Example 1. Computing the orthant probability
> ## =====================================================
> x <- matrix(c(15,26,23,19,
+ 	      26,47,46,35,
+ 	      23,46,65,38,
+ 	      19,35,38,33), nrow =4) 
> y <- c(1,2,3,4)
> hgm.ncorthant(x,y)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
hgm
 --- call from context --- 
hgm.ncorthant(x, y)
 --- call from argument --- 
if (class(x) != "matrix") {
    print("Error: x is not a square matrix.")
    return(NULL)
}
 --- R stacktrace ---
where 1: hgm.ncorthant(x, y)

 --- value of length: 2 type: logical ---
[1] FALSE  TRUE
 --- function from context --- 
function (x, y, rk_step_size = 0.001) 
{
    if (class(x) != "matrix") {
        print("Error: x is not a square matrix.")
        return(NULL)
    }
    if (nrow(x) != ncol(x)) {
        print("Error: x is not a square matrix.")
        return(NULL)
    }
    dim <- nrow(x)
    if (!identical(x, t(x))) {
        print("Error: x is not a symmetric matrix.")
        return(NULL)
    }
    if (!all(eigen(x)$values > 0)) {
        print("Error: x is not positive definite.")
        return(NULL)
    }
    if (dim != length(y)) {
        print("Error: The dimensions of x and y differ.")
        return(NULL)
    }
    .C("hgm_ko_orthant", as.integer(dim), as.double(t(x)), as.double(y), 
        result = double(1))$result
}
<bytecode: 0x38b7430>
<environment: namespace:hgm>
 --- function search by body ---
Function hgm.ncorthant in namespace hgm has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(x) != "matrix") { : the condition has length > 1
Calls: hgm.ncorthant
Execution halted