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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: pasteBlock
> ### Title: Paste a block of PTCell data into a PTPattern
> ### Aliases: pasteBlock pasteBlock,PTPattern,matrix,numeric,numeric-method
> 
> ### ** Examples
> 
> data("mod.intro")
> 
> block <- PTBlock(PTPattern(mod.intro, 1), 1:16, 1)
> 
> ## Do some operations using lapply (the effect
> ## code is set to "C10"):
> block <- matrix(lapply(block, function(x) {(effect(x) <- "C10"); x}),
+                 nrow(block), ncol(block), byrow = TRUE)
> 
> ## Paste block back on the same position:
> PTPattern(mod.intro, 1) <-
+   pasteBlock(PTPattern(mod.intro, 1), block, 1, 1)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
ProTrackR
 --- call from context --- 
.validity.PTBlock(block)
 --- call from argument --- 
if (class(object) != "matrix") stop("Not a valid PTBlock")
 --- R stacktrace ---
where 1: .validity.PTBlock(block)
where 2: .PTBlock.as.raw(block)
where 3: pasteBlock(PTPattern(mod.intro, 1), block, 1, 1)
where 4: pasteBlock(PTPattern(mod.intro, 1), block, 1, 1)

 --- value of length: 2 type: logical ---
[1] FALSE  TRUE
 --- function from context --- 
function (object) 
{
    if (class(object) != "matrix") 
        stop("Not a valid PTBlock")
    if (typeof(object) != "list") 
        stop("Not a valid PTBlock")
    if (any(unlist(lapply(object, class)) != "PTCell")) 
        stop("Not a valid PTBlock")
    if (any(unlist(lapply(object, length)) != 1)) 
        stop("Not a valid PTBlock")
    if (any(!unlist(lapply(object, validObject)))) 
        stop("Not a valid PTBlock")
    return(T)
}
<bytecode: 0x3986f18>
<environment: namespace:ProTrackR>
 --- function search by body ---
Function .validity.PTBlock in namespace ProTrackR has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(object) != "matrix") stop("Not a valid PTBlock") : 
  the condition has length > 1
Calls: pasteBlock -> pasteBlock -> .PTBlock.as.raw -> .validity.PTBlock
Execution halted