CRAN Package Check Results for Package bestglm

Last updated on 2020-01-27 00:47:58 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.37.1 9.08 72.20 81.28 ERROR
r-devel-linux-x86_64-debian-gcc 0.37.1 8.13 56.49 64.62 OK
r-devel-linux-x86_64-fedora-clang 0.37.1 99.90 OK
r-devel-linux-x86_64-fedora-gcc 0.37.1 100.34 OK
r-devel-windows-ix86+x86_64 0.37.1 15.00 122.00 137.00 OK
r-devel-windows-ix86+x86_64-gcc8 0.37.1 22.00 119.00 141.00 OK
r-patched-linux-x86_64 0.37.1 7.63 65.49 73.12 OK
r-patched-solaris-x86 0.37.1 131.00 OK
r-release-linux-x86_64 0.37.1 8.08 65.09 73.17 OK
r-release-windows-ix86+x86_64 0.37.1 16.00 84.00 100.00 OK
r-release-osx-x86_64 0.37.1 OK
r-oldrel-windows-ix86+x86_64 0.37.1 10.00 78.00 88.00 OK
r-oldrel-osx-x86_64 0.37.1 OK

Check Details

Version: 0.37.1
Check: examples
Result: ERROR
    Running examples in 'bestglm-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: oneSDRule
    > ### Title: Utility function. Implements the 1-sd rule.
    > ### Aliases: oneSDRule
    >
    > ### ** Examples
    >
    > CV<-c(1.4637799,0.7036285,0.6242480,0.6069406,0.6006877,0.6005472,0.5707958,
    + 0.5907897,0.5895489)
    > CVsd<-c(0.24878992,0.14160499,0.08714908,0.11376041,0.08522291,
    + 0.11897327,0.07960879,0.09235052,0.12860983)
    > CVout <- matrix(c(CV,CVsd), ncol=2)
    > oneSDRule(CVout)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    bestglm
     --- call from context ---
    oneSDRule(CVout)
     --- call from argument ---
    if (class(CVout) == "train") {
     ans <- CVout
     CVout <- with(ans$results, cbind(RMSE, RMSESD))
    }
     --- R stacktrace ---
    where 1: oneSDRule(CVout)
    
     --- value of length: 2 type: logical ---
    [1] FALSE FALSE
     --- function from context ---
    function (CVout)
    {
     stopifnot(is.matrix(CVout) || is.data.frame(CVout) || class(CVout) ==
     "train")
     if (class(CVout) == "train") {
     ans <- CVout
     CVout <- with(ans$results, cbind(RMSE, RMSESD))
     }
     cverrs <- CVout[, 1]
     indMin <- which.min(cverrs)
     fmin <- CVout[indMin, 2]
     cutOff <- fmin + cverrs[indMin]
     min(which(cverrs < cutOff))
    }
    <bytecode: 0xc660380>
    <environment: namespace:bestglm>
     --- function search by body ---
    Function oneSDRule in namespace bestglm has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(CVout) == "train") { : the condition has length > 1
    Calls: oneSDRule
    Execution halted
Flavor: r-devel-linux-x86_64-debian-clang