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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: QStat.Calculate
> ### Title: Global test for metabolic pathway differences between conditions
> ### Aliases: QStat.Calculate
> ### Keywords: Goeman's test Metabolomic network
> 
> ### ** Examples
> 
> data(QStat)
> QStat.Calculate(QStatX, QStatY, 1000)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
MetStaT
 --- call from context --- 
QStat.Calculate(QStatX, QStatY, 1000)
 --- call from argument --- 
if (class(y.boolean) != "logical") {
    y.boolean <- MetStaT.ConvertToNumericClasses(y.boolean, new.classes = c(1, 
        0)) == 1
}
 --- R stacktrace ---
where 1: QStat.Calculate(QStatX, QStatY, 1000)

 --- value of length: 2 type: logical ---
[1] TRUE TRUE
 --- function from context --- 
function (X, y.boolean, permutations = "all") 
{
    QStat.GetQValue <- function(X, y.boolean) {
        q <- sum(y.boolean)
        t <- length(y.boolean)
        mu <- q/t
        m <- dim(X)[2]
        Z <- y.boolean - mu
        R <- X %*% t(X)/m
        Q <- t(Z) %*% R %*% Z/(mu * (1 - mu))
        Q
    }
    result <- list()
    if (class(y.boolean) != "logical") {
        y.boolean <- MetStaT.ConvertToNumericClasses(y.boolean, 
            new.classes = c(1, 0)) == 1
    }
    result$y.boolean <- y.boolean
    result$X <- X
    Q <- QStat.GetQValue(X, y.boolean)
    result$Q <- Q
    if (permutations != 0) {
        result$p <- QStat.PermutationTest(result, no.permutations = permutations)
    }
    else {
        result$p <- NA
    }
    result
}
<bytecode: 0x2b80d90>
<environment: namespace:MetStaT>
 --- function search by body ---
Function QStat.Calculate in namespace MetStaT has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(y.boolean) != "logical") { : 
  the condition has length > 1
Calls: QStat.Calculate
Execution halted