Running examples in 'pheno2geno-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: add.to.population
> ### Title: Add additional data to a population object
> ### Aliases: add.to.population add.to.populationSub.internal dataObject
> ###   dataType
> ### Keywords: manip
> 
> ### ** Examples
> 
>   population <- fake.population()
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
pheno2geno
 --- call from context --- 
add.to.populationSub.internal(population, populationType, offspringPhenotypes, 
    "offspring$phenotypes", verbose, debugMode)
 --- call from argument --- 
if (class(dataObject) == "data.frame") dataObject <- as.matrix(dataObject)
 --- R stacktrace ---
where 1: add.to.populationSub.internal(population, populationType, offspringPhenotypes, 
    "offspring$phenotypes", verbose, debugMode)
where 2: create.population(pheno, founders, foundersGroups, geno, map, 
    physicalMap, verbose = verbose)
where 3: fake.population()

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (population, populationType = c("riself", "f2", "bc", 
    "risib"), dataObject, dataType = c("founders", "offspring$phenotypes", 
    "founders$groups", "offspring$genotypes", "maps$genetic", 
    "maps$physical", "annotations"), verbose = FALSE, debugMode = 0) 
{
    dataType <- match.arg(dataType)
    populationType <- match.arg(populationType)
    if (missing(dataObject)) 
        stop("dataObject is missing\n")
    if (dataType != "founders$groups") {
        if (class(dataObject) == "data.frame") 
            dataObject <- as.matrix(dataObject)
        if (class(dataObject) != "matrix") 
            stop("dataObject should be either a matrix or a date frame")
    }
    if (dataType == "founders" || dataType == "offspring$phenotypes") {
        population <- add.to.populationSubPheno.internal(population, 
            dataObject, dataType, verbose, debugMode)
    }
    else if (dataType == "offspring$genotypes") {
        if (!(is.null(dataObject)) && !is.null(dim(dataObject))) {
            population$offspring$genotypes$real <- add.to.populationSubGeno.internal(population, 
                dataObject, populationType, verbose)
        }
        else {
            stop("No data provided for offspring$genotypes !\n")
        }
    }
    else if (dataType == "maps$genetic" || dataType == "maps$physical") {
        population <- add.to.populationSubMap.internal(population, 
            dataObject, dataType, verbose, debugMode)
    }
    else if (dataType == "founders$groups") {
        population$founders$groups <- dataObject
    }
    else {
        population <- add.to.populationSubAnnots.internal(population, 
            dataObject, verbose, debugMode)
    }
    invisible(population)
}
<bytecode: 0x477b730>
<environment: namespace:pheno2geno>
 --- function search by body ---
Function add.to.populationSub.internal in namespace pheno2geno has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(dataObject) == "data.frame") dataObject <- as.matrix(dataObject) : 
  the condition has length > 1
Calls: fake.population -> create.population -> add.to.populationSub.internal
Execution halted