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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: mvtmeta-package
> ### Title: Multivariate meta-analysis
> ### Aliases: mvtmeta-package mvtmeta
> ### Keywords: multivariate methods models
> 
> ### ** Examples
> 
> y <- matrix(c(0.3161, 7.4015, 0.4278,
+               -0.3201, 6.9426, -0.9816,
+               0.6983, 4.6680, -0.2415,
+               3.2736, 4.3080, 0.2052,
+               -0.1599, 5.6398, -0.6782,
+               -0.6989, 6.3158, -0.7918,
+               -3.6094, 9.3429, -2.8711,
+               0.2172,6.4078,-0.6093), 3, 8)
> cov <- array(c(2.3568, -1.2105, 0.8524, -1.2105, 9.7029,
+                        -6.1753, 0.8524, -6.1753, 4.4114,
+                0.2529, 0.1498, -0.1019, 0.1498, 0.7016,
+                        -0.4167, -0.1019, -0.4167, 0.2743,
+                0.1444, -0.0652, 0.0433, -0.0652, 0.6481,
+                        -0.3899, 0.0433, -0.3899, 0.2608,
+                3.8428, -4.5587, 3.2892, -4.5587, 10.3517,
+                        -6.6684, 3.2892, -6.6684, 4.8268,
+                0.1161, -0.0992, 0.0645, -0.0992, 0.4363,
+                        -0.2610, 0.0645, -0.2610, 0.1733,
+                0.1603, 0.0242, -0.0129, 0.0242, 0.7697,
+                        -0.4686, -0.0129, -0.4686, 0.3180,
+                3.2054, -1.1984, 0.8437, -1.1984, 17.8889,
+                        -10.7697, 0.8437, -10.7697, 7.2101,
+                0.0278, 0.0136, -0.0091, 0.0136, 0.1184,
+                        -0.0716, -0.0091, -0.0716, 0.0482), c(3, 3, 8))
> fe <- mvtmeta_fe(y, cov)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
mvtmeta
 --- call from context --- 
mvtmeta_fe(y, cov)
 --- call from argument --- 
if (class(y) != "matrix") stop("Error: input effect sizes must be put in a p by n matrix where p is the number of effects and n is the number of studies")
 --- R stacktrace ---
where 1: mvtmeta_fe(y, cov)

 --- value of length: 2 type: logical ---
[1] FALSE  TRUE
 --- function from context --- 
function (y, cov) 
{
    if (class(y) != "matrix") 
        stop("Error: input effect sizes must be put in a p by n matrix where p is the number of effects and n is the number of studies")
    if (class(cov) != "array" || dim(cov)[1] != dim(cov)[2]) 
        stop("Error: input covariance matrices must be put in a p by p by n array where p is the number of effects and n is the number of studies")
    if (dim(y)[1] != dim(cov)[1]) 
        stop("Error: the number of effects p is different in the effect size matrix and the covariance array")
    if (dim(y)[2] != dim(cov)[3]) 
        stop("Error: the number of studies n is different in the effect size matrix and the covariance array")
    p <- dim(y)[1]
    n <- dim(y)[2]
    ind <- combinations(p, 2)
    if (!all(sapply(1:nrow(ind), function(a) all(sapply(1:n, 
        function(b) cov[ind[a, 1], ind[a, 2], b] == cov[ind[a, 
            2], ind[a, 1], b]))))) 
        stop("Error: at least one of the covariance matrices is not symmetric")
    if (!all(sapply(1:n, function(x) min(eigen(cov[, , x])$values) > 
        0))) 
        stop("Error: at least one of the covariance matrices is not positive-definite")
    cov_i <- array(rep(NA, p * p * n), c(p, p, n))
    tmpy <- matrix(rep(NA, p * n), p, n)
    for (i in 1:n) {
        cov_i[, , i] <- solve(cov[, , i])
        tmpy[, i] <- cov_i[, , i] %*% y[, i]
    }
    covbeta_i <- apply(cov_i, 1:2, sum)
    covbeta <- solve(covbeta_i)
    beta <- as.vector(covbeta %*% apply(tmpy, 1, sum))
    return(list(beta = beta, cov = covbeta))
}
<bytecode: 0x12138d8>
<environment: namespace:mvtmeta>
 --- function search by body ---
Function mvtmeta_fe in namespace mvtmeta has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(y) != "matrix") stop("Error: input effect sizes must be put in a p by n matrix where p is the number of effects and n is the number of studies") : 
  the condition has length > 1
Calls: mvtmeta_fe
Execution halted