Running 'fpctests_notallin.R' [4s/5s]
Running the tests in 'tests/fpctests_notallin.R' failed.
Complete output:
  > # This tests a few things that are not run in the examples.
  > 
  > library(fpc)
  > library(MASS)
  > library(diptest)
  > library(mclust)
  Package 'mclust' version 5.4.5
  Type 'citation("mclust")' for citing this R package in publications.
  > options(digits=3)
  > 
  > set.seed(4634)
  > face <- rFace(300,dMoNo=2,dNoEy=0,p=3)
  > grface <- as.integer(attr(face,"grouping"))
  > discrproj(face,grface, clnum=1, method="bc")$units
  [1] "Cluster indicator has more than 2 values"
          [,1]  [,2]     [,3]
  [1,]  0.1548 0.373  0.49246
  [2,] -0.1981 0.006 -0.00132
  [3,]  0.0482 0.498 -0.66288
  > discrproj(face,grface, clnum=1, method="anc")$units
   ----------- 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(xx, clvec, clnum, ...)
  where 3: discrproj(face, grface, clnum = 1, method = "anc")
  
   --- 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: 0x544bf20>
  <environment: namespace:fpc>
   --- function search by body ---
  Function solvecov in namespace fpc has this body.
   ----------- END OF FAILURE REPORT -------------- 
  Execution halted