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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: emcdf
> ### Title: Computes multivariate empirical joint distribution
> ### Aliases: emcdf
> 
> ### ** Examples
> 
> 
> n = 10^6
> set.seed(123)
> x = rnorm(n)
> y = rnorm(n)
> z = rnorm(n)
> data = cbind(x, y, z)
> #The aim is to compute F(0.5,0.5,0.5) with three
> #approaches and compare the performances.
> #To avoid CPU noises, we repeat the computation 10 times.
> #compute with R built-in function, sum()
> sum_time = system.time({
+   aws1 = c()
+   for(i in 1:10)
+     aws1[i] = sum(x <= 0.5& y <=0.5& z <=0.5)/n
+ })[3]
> 
> #compute with emcdf single-thread
> a = matrix(rep(c(0.5, 0.5, 0.5), 10), 10, 3)
> single_time = system.time({
+    aws2 = emcdf(data, a)
+ })[3]
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
Emcdf
 --- call from context --- 
emcdf(data, a)
 --- call from argument --- 
if (class(data) == "emcdf_obj") {
    if ((is.vector(a) && data@k != length(a)) || (is.matrix(a) && 
        data@k != ncol(a))) 
        stop("column number of data must equal to length of a.")
    return(multi_emcdf(data, a)/data@n)
} else {
    if (!is.numeric(data) || !is.matrix(data)) 
        stop("data must be a numeric matrix or an object of class \"emcdf_obj\".")
    if ((is.vector(a) && ncol(data) != length(a)) || (is.matrix(a) && 
        ncol(data) != ncol(a))) 
        stop("column number of data must equal to length (ncol) of a.")
    n = nrow(data)
    if (is.vector(a)) {
        if (ncol(data) == 1) 
            return(single1(data, a)/n)
        else if (ncol(data) == 2) 
            return(single2(data, a)/n)
        else if (ncol(data) == 3) 
            return(single3(data, a)/n)
        else if (ncol(data) == 4) 
            return(single4(data, a)/n)
        else if (ncol(data) == 5) 
            return(single5(data, a)/n)
        else return(single_v(data, a)/n)
    }
    else {
        if (ncol(data) == 1) 
            return(single1_m(data, a)/n)
        else if (ncol(data) == 2) 
            return(single2_m(data, a)/n)
        else if (ncol(data) == 3) 
            return(single3_m(data, a)/n)
        else if (ncol(data) == 4) 
            return(single4_m(data, a)/n)
        else if (ncol(data) == 5) 
            return(single5_m(data, a)/n)
        else return(single_m(data, a)/n)
    }
}
 --- R stacktrace ---
where 1: emcdf(data, a)
where 2: system.time({
    aws2 = emcdf(data, a)
})

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (data, a) 
{
    if (!is.numeric(a)) 
        stop("a must be a numeric vector or matrix.")
    if (class(data) == "emcdf_obj") {
        if ((is.vector(a) && data@k != length(a)) || (is.matrix(a) && 
            data@k != ncol(a))) 
            stop("column number of data must equal to length of a.")
        return(multi_emcdf(data, a)/data@n)
    }
    else {
        if (!is.numeric(data) || !is.matrix(data)) 
            stop("data must be a numeric matrix or an object of class \"emcdf_obj\".")
        if ((is.vector(a) && ncol(data) != length(a)) || (is.matrix(a) && 
            ncol(data) != ncol(a))) 
            stop("column number of data must equal to length (ncol) of a.")
        n = nrow(data)
        if (is.vector(a)) {
            if (ncol(data) == 1) 
                return(single1(data, a)/n)
            else if (ncol(data) == 2) 
                return(single2(data, a)/n)
            else if (ncol(data) == 3) 
                return(single3(data, a)/n)
            else if (ncol(data) == 4) 
                return(single4(data, a)/n)
            else if (ncol(data) == 5) 
                return(single5(data, a)/n)
            else return(single_v(data, a)/n)
        }
        else {
            if (ncol(data) == 1) 
                return(single1_m(data, a)/n)
            else if (ncol(data) == 2) 
                return(single2_m(data, a)/n)
            else if (ncol(data) == 3) 
                return(single3_m(data, a)/n)
            else if (ncol(data) == 4) 
                return(single4_m(data, a)/n)
            else if (ncol(data) == 5) 
                return(single5_m(data, a)/n)
            else return(single_m(data, a)/n)
        }
    }
    return(-1)
}
<bytecode: 0x4fd2f58>
<environment: namespace:Emcdf>
 --- function search by body ---
Function emcdf in namespace Emcdf has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1