CRAN Package Check Results for Package fpc

Last updated on 2019-12-11 22:51:07 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 2.2-3 14.37 108.42 122.79 ERROR
r-devel-linux-x86_64-debian-gcc 2.2-3 14.89 92.50 107.39 OK
r-devel-linux-x86_64-fedora-clang 2.2-3 159.71 OK
r-devel-linux-x86_64-fedora-gcc 2.2-3 167.57 OK
r-devel-windows-ix86+x86_64 2.2-3 25.00 182.00 207.00 OK
r-devel-windows-ix86+x86_64-gcc8 2.2-3 25.00 176.00 201.00 OK
r-patched-linux-x86_64 2.2-3 12.85 106.61 119.46 OK
r-patched-solaris-x86 2.2-3 199.50 OK
r-release-linux-x86_64 2.2-3 12.18 107.16 119.34 OK
r-release-windows-ix86+x86_64 2.2-3 23.00 121.00 144.00 OK
r-release-osx-x86_64 2.2-3 OK
r-oldrel-windows-ix86+x86_64 2.2-3 16.00 116.00 132.00 OK
r-oldrel-osx-x86_64 2.2-3 OK

Additional issues

ATLAS MKL noLD OpenBLAS

Check Details

Version: 2.2-3
Check: examples
Result: ERROR
    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: 0x5d512e0>
    <environment: namespace:fpc>
     --- function search by body ---
    Function solvecov in namespace fpc has this body.
     ----------- END OF FAILURE REPORT --------------
    Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 2.2-3
Check: tests
Result: ERROR
     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: 0x652f4c8>
     <environment: namespace:fpc>
     --- function search by body ---
     Function solvecov in namespace fpc has this body.
     ----------- END OF FAILURE REPORT --------------
     Execution halted
Flavor: r-devel-linux-x86_64-debian-clang