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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: antitheticContainer
> ### Title: Generate Objects of Class "'antitheticContainer'"
> ### Aliases: antitheticContainer
> 
> ### ** Examples
> 
> sTrees = standingTrees(5, startSeed = 12)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
sampSurf
 --- call from context --- 
validityMethod(as(object, superClass))
 --- call from argument --- 
if (!class(object@bbox) == "matrix") return("bbox slot must be a 2x2 matrix")
 --- R stacktrace ---
where 1: validityMethod(as(object, superClass))
where 2: isTRUE(x)
where 3: anyStrings(validityMethod(as(object, superClass)))
where 4: validObject(.Object)
where 5: initialize(value, ...)
where 6: initialize(value, ...)
where 7: new("standingTrees", trees = trees, bbox = bbox, units = trees[[1]]@units, 
    stats = stats, description = description)
where 8: .local(object, ...)
where 9: standingTrees(stl, units = units, ...)
where 10: standingTrees(stl, units = units, ...)
where 11: .local(object, ...)
where 12: standingTrees(strees, units = units, ...)
where 13: standingTrees(strees, units = units, ...)
where 14: .local(object, container, ...)
where 15: standingTrees(numTrees, sampleRect, units = units, ...)
where 16: standingTrees(numTrees, sampleRect, units = units, ...)
where 17: .local(object, ...)
where 18: standingTrees(5, startSeed = 12)
where 19: standingTrees(5, startSeed = 12)

 --- value of length: 2 type: logical ---
[1] FALSE  TRUE
 --- function from context --- 
function (object) 
{
    if (!(object@units %in% .StemEnv$msrUnits)) 
        return("units of measure must be \"English\" or \"metric\"")
    if (!class(object@bbox) == "matrix") 
        return("bbox slot must be a 2x2 matrix")
    bboxNames = match(rownames(object@bbox), c("x", "y"))
    if (any(is.na(bboxNames))) 
        return("slot bbox rownames must be \"x\", \"y\"!")
    bboxNames = match(colnames(object@bbox), c("min", "max"))
    if (any(is.na(bboxNames))) 
        return("slot bbox colnames must be \"min\", \"max\"!")
    return(TRUE)
}
<bytecode: 0x7a30bb8>
<environment: namespace:sampSurf>
 --- function search by body ---
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1