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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: Tgraph
> ### Title: Layout 'qgraph' for multiple comparisons by package 'nparcomp'
> ### Aliases: Tgraph
> ### Keywords: multiple comparisons Tgraph
> 
> ### ** Examples
> 
> library(nparcomp)
Loading required package: multcomp
Loading required package: mvtnorm
Loading required package: survival
Loading required package: TH.data
Loading required package: MASS

Attaching package: 'TH.data'

The following object is masked from 'package:MASS':

    geyser

> library(qgraph)
> 
> dat <- data.frame(matrix(nrow = 300, ncol = 0))
> 
> dat$DV <- c(rnorm(100, 1, 1),
+        rnorm(100, 0, 1),
+        rnorm(100, 0, 1))
> 
> dat$IV <- c(rep("A", 100),
+         rep("B", 100),
+         rep("D", 100))
> 
> mcmp <- mctp(formula = DV~IV, data = dat, type = "Tukey")

 #----------------Nonparametric Multiple Comparisons for relative effects---------------# 
 
 - Alternative Hypothesis:  True differences of relative effects are not equal to 0 
 - Estimation Method:  Global Pseudo Ranks 
 - Type of Contrast : Tukey 
 - Confidence Level: 95 % 
 - Method = Fisher with 198 DF 
 
 #--------------------------------------------------------------------------------------# 
 
> tg <- Tgraph(mcmp)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
IATscores
 --- call from context --- 
transitive.reduction(amat)
 --- call from argument --- 
if (!(class(g) %in% c("matrix", "graphNEL"))) stop("Input must be an adjacency matrix or graphNEL object")
 --- R stacktrace ---
where 1: transitive.reduction(amat)
where 2: Tgraph(mcmp)

 --- value of length: 2 type: logical ---
[1] FALSE  TRUE
 --- function from context --- 
function (g) 
{
    if (!(class(g) %in% c("matrix", "graphNEL"))) 
        stop("Input must be an adjacency matrix or graphNEL object")
    if (class(g) == "graphNEL") {
        g = as(g, "matrix")
    }
    g = transitive.closure(g, mat = TRUE)
    g = g - diag(diag(g))
    type = (g > 1) * 1 - (g < 0) * 1
    for (y in 1:nrow(g)) {
        for (x in 1:nrow(g)) {
            if (g[x, y] != 0) {
                for (j in 1:nrow(g)) {
                  if ((g[y, j] != 0) & sign(type[x, j]) * sign(type[x, 
                    y]) * sign(type[y, j]) != -1) {
                    g[x, j] = 0
                  }
                }
            }
        }
    }
    g
}
<bytecode: 0xbb3b758>
<environment: namespace:IATscores>
 --- function search by body ---
Function transitive.reduction in namespace IATscores has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (!(class(g) %in% c("matrix", "graphNEL"))) stop("Input must be an adjacency matrix or graphNEL object") : 
  the condition has length > 1
Calls: Tgraph -> transitive.reduction
Execution halted