Running examples in ‘PCIT-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: idxInvert
> ### Title: Invert linear indices from a matrix
> ### Aliases: idxInvert
> 
> ### ** Examples
> 
> 	m <- matrix(1, 5, 5)
> 	diag(m) <- 0
> 	m
     [,1] [,2] [,3] [,4] [,5]
[1,]    0    1    1    1    1
[2,]    1    0    1    1    1
[3,]    1    1    0    1    1
[4,]    1    1    1    0    1
[5,]    1    1    1    1    0
> 	idx <- which(m==0)
> 	idx
[1]  1  7 13 19 25
> 	idxInvert(m, idx)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
PCIT
 --- call from context --- 
idxInvert(m, idx)
 --- call from argument --- 
if (class(m) == "numeric" | class(m) == "integer") {
    nNodes <- m
} else {
    nNodes <- try(nrow(m), silent = TRUE)
    if (class(nNodes) == "try-error" | is.null(nNodes)) {
        cat("ERROR: argument 'm' must be a numeric OR an object on which nrow() can be performed.\n\n", 
            geterrmessage())
        return(FALSE)
    }
}
 --- R stacktrace ---
where 1: idxInvert(m, idx)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (m, idx) 
{
    if (class(m) == "numeric" | class(m) == "integer") {
        nNodes <- m
    }
    else {
        nNodes <- try(nrow(m), silent = TRUE)
        if (class(nNodes) == "try-error" | is.null(nNodes)) {
            cat("ERROR: argument 'm' must be a numeric OR an object on which nrow() can be performed.\n\n", 
                geterrmessage())
            return(FALSE)
        }
    }
    return(setdiff(1:(nNodes^2), idx))
}
<bytecode: 0x55af52adfa28>
<environment: namespace:PCIT>
 --- function search by body ---
Function idxInvert in namespace PCIT has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(m) == "numeric" | class(m) == "integer") { : 
  the condition has length > 1
Calls: idxInvert
Execution halted