CRAN Package Check Results for Package Emcdf

Last updated on 2019-12-15 01:50:23 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.1.2 60.78 28.03 88.81 ERROR
r-devel-linux-x86_64-debian-gcc 0.1.2 36.64 23.54 60.18 OK
r-devel-linux-x86_64-fedora-clang 0.1.2 125.18 OK
r-devel-linux-x86_64-fedora-gcc 0.1.2 109.52 OK
r-devel-windows-ix86+x86_64 0.1.2 119.00 61.00 180.00 OK
r-devel-windows-ix86+x86_64-gcc8 0.1.2 124.00 88.00 212.00 OK
r-patched-linux-x86_64 0.1.2 43.02 27.63 70.65 OK
r-patched-solaris-x86 0.1.2 121.00 OK
r-release-linux-x86_64 0.1.2 42.22 27.60 69.82 OK
r-release-windows-ix86+x86_64 0.1.2 129.00 70.00 199.00 OK
r-release-osx-x86_64 0.1.2 OK
r-oldrel-windows-ix86+x86_64 0.1.2 111.00 62.00 173.00 OK
r-oldrel-osx-x86_64 0.1.2 OK

Check Details

Version: 0.1.2
Check: examples
Result: ERROR
    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) && [email protected] != length(a)) || (is.matrix(a) &&
     [email protected] != ncol(a)))
     stop("column number of data must equal to length of a.")
     return(multi_emcdf(data, a)/[email protected])
    } 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) && [email protected] != length(a)) || (is.matrix(a) &&
     [email protected] != ncol(a)))
     stop("column number of data must equal to length of a.")
     return(multi_emcdf(data, a)/[email protected])
     }
     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: 0x48dbc48>
    <environment: namespace:Emcdf>
     --- function search by body ---
    Function emcdf in namespace Emcdf has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(data) == "emcdf_obj") { : the condition has length > 1
    Calls: system.time -> emcdf
    Timing stopped at: 0.89 0.091 0.993
    Execution halted
Flavor: r-devel-linux-x86_64-debian-clang