CRAN Package Check Results for Package EBMAforecast

Last updated on 2020-02-18 06:47:27 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.52 38.52 95.89 134.41 ERROR
r-devel-linux-x86_64-debian-gcc 0.52 25.47 74.61 100.08 ERROR
r-devel-linux-x86_64-fedora-clang 0.52 165.75 ERROR
r-devel-linux-x86_64-fedora-gcc 0.52 158.83 ERROR
r-devel-windows-ix86+x86_64 0.52 73.00 142.00 215.00 OK
r-devel-windows-ix86+x86_64-gcc8 0.52 120.00 216.00 336.00 OK
r-patched-linux-x86_64 0.52 29.44 79.89 109.33 OK
r-patched-solaris-x86 0.52 203.10 OK
r-release-linux-x86_64 0.52 28.90 79.56 108.46 OK
r-release-windows-ix86+x86_64 0.52 72.00 126.00 198.00 OK
r-release-osx-x86_64 0.52 OK
r-oldrel-windows-ix86+x86_64 0.52 57.00 129.00 186.00 OK
r-oldrel-osx-x86_64 0.52 OK

Check Details

Version: 0.52
Check: examples
Result: ERROR
    Running examples in 'EBMAforecast-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: plot,FDatFitLogit-method
    > ### Title: Plotting function for ensemble models of the class
    > ### "FDatFitLogit" or "FDatFitNormal", which are the objects created by
    > ### the 'calibrateEnsemble()' function.
    > ### Aliases: plot,FDatFitLogit-method plot,FDatFitNormal-method
    >
    > ### ** Examples
    >
    > data(calibrationSample)
    >
    > data(testSample)
    >
    > this.ForecastData <- makeForecastData(.predCalibration=calibrationSample[,c("LMER", "SAE", "GLM")],
    + .outcomeCalibration=calibrationSample[,"Insurgency"],.predTest=testSample[,c("LMER", "SAE", "GLM")],
    + .outcomeTest=testSample[,"Insurgency"], .modelNames=c("LMER", "SAE", "GLM"))
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    EBMAforecast
     --- call from context ---
    .local(.predCalibration, .predTest, .outcomeCalibration, .outcomeTest,
     .modelNames, ...)
     --- call from argument ---
    if (class(.predCalibration) == "data.frame") {
     .predCalibration <- as.matrix(.predCalibration)
    }
     --- R stacktrace ---
    where 1: .local(.predCalibration, .predTest, .outcomeCalibration, .outcomeTest,
     .modelNames, ...)
    where 2: makeForecastData(.predCalibration = calibrationSample[, c("LMER",
     "SAE", "GLM")], .outcomeCalibration = calibrationSample[,
     "Insurgency"], .predTest = testSample[, c("LMER", "SAE",
     "GLM")], .outcomeTest = testSample[, "Insurgency"], .modelNames = c("LMER",
     "SAE", "GLM"))
    where 3: makeForecastData(.predCalibration = calibrationSample[, c("LMER",
     "SAE", "GLM")], .outcomeCalibration = calibrationSample[,
     "Insurgency"], .predTest = testSample[, c("LMER", "SAE",
     "GLM")], .outcomeTest = testSample[, "Insurgency"], .modelNames = c("LMER",
     "SAE", "GLM"))
    
     --- value of length: 2 type: logical ---
    [1] FALSE FALSE
     --- function from context ---
    function (.predCalibration, .predTest, .outcomeCalibration, .outcomeTest,
     .modelNames)
    {
     if (class(.predCalibration) == "data.frame") {
     .predCalibration <- as.matrix(.predCalibration)
     }
     if (class(.predTest) == "data.frame") {
     .predTest <- as.matrix(.predTest)
     }
     if (class(.predCalibration) == "matrix") {
     .predCalibration <- array(.predCalibration, dim = c(nrow(.predCalibration),
     ncol(.predCalibration), 1))
     }
     if (class(.predTest) == "matrix") {
     .predTest <- array(.predTest, dim = c(nrow(.predTest),
     ncol(.predTest), 1))
     }
     if (length(.modelNames) < ncol(.predCalibration)) {
     .modelNames <- paste("Model", 1:ncol(.predCalibration))
     }
     if (length(.predCalibration) > 0) {
     colnames(.predCalibration) <- .modelNames
     rownames(.predCalibration) <- 1:nrow(.predCalibration)
     }
     if (length(.predTest) > 0) {
     colnames(.predTest) <- .modelNames
     rownames(.predTest) <- 1:nrow(.predTest)
     }
     if (length(.outcomeCalibration > 0)) {
     names(.outcomeCalibration) <- 1:length(.outcomeCalibration)
     }
     if (length(.outcomeTest > 0)) {
     names(.outcomeTest) <- 1:length(.outcomeTest)
     }
     return(new("ForecastData", predCalibration = .predCalibration,
     predTest = .predTest, outcomeCalibration = .outcomeCalibration,
     outcomeTest = .outcomeTest, modelNames = .modelNames))
    }
    <environment: namespace:EBMAforecast>
     --- function search by body ---
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(.predCalibration) == "data.frame") { :
     the condition has length > 1
    Calls: makeForecastData -> makeForecastData -> .local
    Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc

Version: 0.52
Check: compiled code
Result: NOTE
    File ‘EBMAforecast/libs/EBMAforecast.so’:
     Found no calls to: ‘R_registerRoutines’, ‘R_useDynamicSymbols’
    
    It is good practice to register native routines and to disable symbol
    search.
    
    See ‘Writing portable packages’ in the ‘Writing R Extensions’ manual.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc

Version: 0.52
Check: examples
Result: ERROR
    Running examples in ‘EBMAforecast-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: plot,FDatFitLogit-method
    > ### Title: Plotting function for ensemble models of the class
    > ### "FDatFitLogit" or "FDatFitNormal", which are the objects created by
    > ### the 'calibrateEnsemble()' function.
    > ### Aliases: plot,FDatFitLogit-method plot,FDatFitNormal-method
    >
    > ### ** Examples
    >
    > data(calibrationSample)
    >
    > data(testSample)
    >
    > this.ForecastData <- makeForecastData(.predCalibration=calibrationSample[,c("LMER", "SAE", "GLM")],
    + .outcomeCalibration=calibrationSample[,"Insurgency"],.predTest=testSample[,c("LMER", "SAE", "GLM")],
    + .outcomeTest=testSample[,"Insurgency"], .modelNames=c("LMER", "SAE", "GLM"))
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    EBMAforecast
     --- call from context ---
    .local(.predCalibration, .predTest, .outcomeCalibration, .outcomeTest,
     .modelNames, ...)
     --- call from argument ---
    if (class(.predCalibration) == "data.frame") {
     .predCalibration <- as.matrix(.predCalibration)
    }
     --- R stacktrace ---
    where 1: .local(.predCalibration, .predTest, .outcomeCalibration, .outcomeTest,
     .modelNames, ...)
    where 2: makeForecastData(.predCalibration = calibrationSample[, c("LMER",
     "SAE", "GLM")], .outcomeCalibration = calibrationSample[,
     "Insurgency"], .predTest = testSample[, c("LMER", "SAE",
     "GLM")], .outcomeTest = testSample[, "Insurgency"], .modelNames = c("LMER",
     "SAE", "GLM"))
    where 3: makeForecastData(.predCalibration = calibrationSample[, c("LMER",
     "SAE", "GLM")], .outcomeCalibration = calibrationSample[,
     "Insurgency"], .predTest = testSample[, c("LMER", "SAE",
     "GLM")], .outcomeTest = testSample[, "Insurgency"], .modelNames = c("LMER",
     "SAE", "GLM"))
    
     --- value of length: 2 type: logical ---
    [1] FALSE FALSE
     --- function from context ---
    function (.predCalibration, .predTest, .outcomeCalibration, .outcomeTest,
     .modelNames)
    {
     if (class(.predCalibration) == "data.frame") {
     .predCalibration <- as.matrix(.predCalibration)
     }
     if (class(.predTest) == "data.frame") {
     .predTest <- as.matrix(.predTest)
     }
     if (class(.predCalibration) == "matrix") {
     .predCalibration <- array(.predCalibration, dim = c(nrow(.predCalibration),
     ncol(.predCalibration), 1))
     }
     if (class(.predTest) == "matrix") {
     .predTest <- array(.predTest, dim = c(nrow(.predTest),
     ncol(.predTest), 1))
     }
     if (length(.modelNames) < ncol(.predCalibration)) {
     .modelNames <- paste("Model", 1:ncol(.predCalibration))
     }
     if (length(.predCalibration) > 0) {
     colnames(.predCalibration) <- .modelNames
     rownames(.predCalibration) <- 1:nrow(.predCalibration)
     }
     if (length(.predTest) > 0) {
     colnames(.predTest) <- .modelNames
     rownames(.predTest) <- 1:nrow(.predTest)
     }
     if (length(.outcomeCalibration > 0)) {
     names(.outcomeCalibration) <- 1:length(.outcomeCalibration)
     }
     if (length(.outcomeTest > 0)) {
     names(.outcomeTest) <- 1:length(.outcomeTest)
     }
     return(new("ForecastData", predCalibration = .predCalibration,
     predTest = .predTest, outcomeCalibration = .outcomeCalibration,
     outcomeTest = .outcomeTest, modelNames = .modelNames))
    }
    <environment: namespace:EBMAforecast>
     --- function search by body ---
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(.predCalibration) == "data.frame") { :
     the condition has length > 1
    Calls: makeForecastData -> makeForecastData -> .local
    Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc