CRAN Package Check Results for Package argo

Last updated on 2019-11-26 00:51:44 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 2.0.0 9.74 125.83 135.57 ERROR
r-devel-linux-x86_64-debian-gcc 2.0.0 7.93 96.74 104.67 ERROR
r-devel-linux-x86_64-fedora-clang 2.0.0 152.91 OK
r-devel-linux-x86_64-fedora-gcc 2.0.0 153.43 OK
r-devel-windows-ix86+x86_64 2.0.0 27.00 169.00 196.00 OK
r-devel-windows-ix86+x86_64-gcc8 2.0.0 19.00 135.00 154.00 OK
r-patched-linux-x86_64 2.0.0 9.95 121.33 131.28 OK
r-patched-solaris-x86 2.0.0 228.00 OK
r-release-linux-x86_64 2.0.0 7.99 123.02 131.01 OK
r-release-windows-ix86+x86_64 2.0.0 22.00 180.00 202.00 OK
r-release-osx-x86_64 2.0.0 OK
r-oldrel-windows-ix86+x86_64 2.0.0 10.00 186.00 196.00 OK
r-oldrel-osx-x86_64 2.0.0 OK

Check Details

Version: 2.0.0
Check: examples
Result: ERROR
    Running examples in 'argo-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: summary_argo
    > ### Title: performance summary of ARGO applied on CDC's ILI data
    > ### Aliases: summary_argo
    >
    > ### ** Examples
    >
    > GFT_xts = xts::xts(exp(matrix(rnorm(1000), ncol=10)), order.by = Sys.Date() - (100:1))
    > names(GFT_xts) <- paste0("col", 1:10)
    > names(GFT_xts)[1] <- "CDC.data"
    > summary_argo(
    + GFT_xts = GFT_xts,
    + model_names = colnames(GFT_xts)[-1],
    + legend_names = paste0(colnames(GFT_xts)[-1], "legend"),
    + periods = c(paste0(zoo::index(GFT_xts)[1], "/", zoo::index(GFT_xts)[49]),
    + paste0(zoo::index(GFT_xts)[50], "/", zoo::index(GFT_xts)[100])),
    + whole_period="2009-03/"
    + )
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    argo
     --- call from context ---
    FUN(X[[i]], ...)
     --- call from argument ---
    if (class(re) == "try-error") return(NaN) else return(re)
     --- R stacktrace ---
    where 1: FUN(X[[i]], ...)
    where 2: lapply(X = X, FUN = FUN, ...)
    where 3: sapply(periods, function(p) {
     re <- try(cor(x[p], y[p], use = "everything"), silent = T)
     if (class(re) == "try-error")
     return(NaN)
     else return(re)
    })
    where 4: corr_by_period(GFT_xts$CDC.data, GFT_xts[, name], periods)
    where 5: FUN(X[[i]], ...)
    where 6: lapply(X = X, FUN = FUN, ...)
    where 7: sapply(model_names, function(name) corr_by_period(GFT_xts$CDC.data,
     GFT_xts[, name], periods))
    where 8: summary_argo(GFT_xts = GFT_xts, model_names = colnames(GFT_xts)[-1],
     legend_names = paste0(colnames(GFT_xts)[-1], "legend"), periods = c(paste0(zoo::index(GFT_xts)[1],
     "/", zoo::index(GFT_xts)[49]), paste0(zoo::index(GFT_xts)[50],
     "/", zoo::index(GFT_xts)[100])), whole_period = "2009-03/")
    
     --- value of length: 2 type: logical ---
    [1] FALSE FALSE
     --- function from context ---
    function (p)
    {
     re <- try(cor(x[p], y[p], use = "everything"), silent = T)
     if (class(re) == "try-error")
     return(NaN)
     else return(re)
    }
    <bytecode: 0xa8c3ba0>
    <environment: 0xa90a9b0>
     --- function search by body ---
     ----------- END OF FAILURE REPORT --------------
    Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-clang

Version: 2.0.0
Check: examples
Result: ERROR
    Running examples in ‘argo-Ex.R’ failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: summary_argo
    > ### Title: performance summary of ARGO applied on CDC's ILI data
    > ### Aliases: summary_argo
    >
    > ### ** Examples
    >
    > GFT_xts = xts::xts(exp(matrix(rnorm(1000), ncol=10)), order.by = Sys.Date() - (100:1))
    > names(GFT_xts) <- paste0("col", 1:10)
    > names(GFT_xts)[1] <- "CDC.data"
    > summary_argo(
    + GFT_xts = GFT_xts,
    + model_names = colnames(GFT_xts)[-1],
    + legend_names = paste0(colnames(GFT_xts)[-1], "legend"),
    + periods = c(paste0(zoo::index(GFT_xts)[1], "/", zoo::index(GFT_xts)[49]),
    + paste0(zoo::index(GFT_xts)[50], "/", zoo::index(GFT_xts)[100])),
    + whole_period="2009-03/"
    + )
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    argo
     --- call from context ---
    FUN(X[[i]], ...)
     --- call from argument ---
    if (class(re) == "try-error") return(NaN) else return(re)
     --- R stacktrace ---
    where 1: FUN(X[[i]], ...)
    where 2: lapply(X = X, FUN = FUN, ...)
    where 3: sapply(periods, function(p) {
     re <- try(cor(x[p], y[p], use = "everything"), silent = T)
     if (class(re) == "try-error")
     return(NaN)
     else return(re)
    })
    where 4: corr_by_period(GFT_xts$CDC.data, GFT_xts[, name], periods)
    where 5: FUN(X[[i]], ...)
    where 6: lapply(X = X, FUN = FUN, ...)
    where 7: sapply(model_names, function(name) corr_by_period(GFT_xts$CDC.data,
     GFT_xts[, name], periods))
    where 8: summary_argo(GFT_xts = GFT_xts, model_names = colnames(GFT_xts)[-1],
     legend_names = paste0(colnames(GFT_xts)[-1], "legend"), periods = c(paste0(zoo::index(GFT_xts)[1],
     "/", zoo::index(GFT_xts)[49]), paste0(zoo::index(GFT_xts)[50],
     "/", zoo::index(GFT_xts)[100])), whole_period = "2009-03/")
    
     --- value of length: 2 type: logical ---
    [1] FALSE FALSE
     --- function from context ---
    function (p)
    {
     re <- try(cor(x[p], y[p], use = "everything"), silent = T)
     if (class(re) == "try-error")
     return(NaN)
     else return(re)
    }
    <bytecode: 0x56148e667d28>
    <environment: 0x56148e6b0be0>
     --- function search by body ---
     ----------- END OF FAILURE REPORT --------------
    Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-gcc