Last updated on 2020-01-25 19:47:16 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.1.2 | 59.76 | 28.10 | 87.86 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 0.1.2 | 36.65 | 23.62 | 60.27 | OK | |
| r-devel-linux-x86_64-fedora-clang | 0.1.2 | 129.60 | OK | |||
| r-devel-linux-x86_64-fedora-gcc | 0.1.2 | 106.62 | ERROR | |||
| r-devel-windows-ix86+x86_64 | 0.1.2 | 160.00 | 91.00 | 251.00 | OK | |
| r-devel-windows-ix86+x86_64-gcc8 | 0.1.2 | 160.00 | 71.00 | 231.00 | OK | |
| r-patched-linux-x86_64 | 0.1.2 | 40.94 | 27.18 | 68.12 | OK | |
| r-patched-solaris-x86 | 0.1.2 | 121.70 | OK | |||
| r-release-linux-x86_64 | 0.1.2 | 41.77 | 27.48 | 69.25 | OK | |
| r-release-windows-ix86+x86_64 | 0.1.2 | 156.00 | 94.00 | 250.00 | OK | |
| r-release-osx-x86_64 | 0.1.2 | OK | ||||
| r-oldrel-windows-ix86+x86_64 | 0.1.2 | 104.00 | 59.00 | 163.00 | OK | |
| r-oldrel-osx-x86_64 | 0.1.2 | OK |
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) && 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: 0x3865a58>
<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.88 0.052 0.999
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.1.2
Check: examples
Result: ERROR
Running examples in ‘Emcdf-Ex.R’ failed
The error most likely occurred in:
> ### 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: 0x3fe40a8>
<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
Flavor: r-devel-linux-x86_64-fedora-gcc