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 -------------- 
Fatal error: the condition has length > 1