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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ancoord
> ### Title: Asymmetric neighborhood based discriminant coordinates
> ### Aliases: ancoord
> ### Keywords: multivariate classif
> 
> ### ** Examples
> 
>   set.seed(4634)
>   face <- rFace(600,dMoNo=2,dNoEy=0)
>   grface <- as.integer(attr(face,"grouping"))
>   ancf2 <- ancoord(face,grface==4)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
fpc
 --- call from context --- 
solvecov(S1)
 --- call from argument --- 
if (class(covinv) != "try-error") coll = FALSE else {
    p <- nrow(m)
    cove <- eigen(m, symmetric = TRUE)
    coll <- TRUE
    if (min(cove$values) < 1/cmax) {
        covewi <- diag(p)
        for (i in 1:p) if (cove$values[i] < 1/cmax) 
            covewi[i, i] <- cmax
        else covewi[i, i] <- 1/cove$values[i]
    }
    else covewi <- diag(1/cove$values, nrow = length(cove$values))
    covinv <- cove$vectors %*% covewi %*% t(cove$vectors)
}
 --- R stacktrace ---
where 1: solvecov(S1)
where 2: ancoord(face, grface == 4)

 --- value of length: 2 type: logical ---
[1] TRUE TRUE
 --- function from context --- 
function (m, cmax = 1e+10) 
{
    options(show.error.messages = FALSE)
    covinv <- try(solve(m))
    if (class(covinv) != "try-error") 
        coll = FALSE
    else {
        p <- nrow(m)
        cove <- eigen(m, symmetric = TRUE)
        coll <- TRUE
        if (min(cove$values) < 1/cmax) {
            covewi <- diag(p)
            for (i in 1:p) if (cove$values[i] < 1/cmax) 
                covewi[i, i] <- cmax
            else covewi[i, i] <- 1/cove$values[i]
        }
        else covewi <- diag(1/cove$values, nrow = length(cove$values))
        covinv <- cove$vectors %*% covewi %*% t(cove$vectors)
    }
    options(show.error.messages = TRUE)
    out <- list(inv = covinv, coll = coll)
}
<bytecode: 0x6e57c18>
<environment: namespace:fpc>
 --- function search by body ---
Function solvecov in namespace fpc has this body.
 ----------- END OF FAILURE REPORT -------------- 
Execution halted