CRAN Package Check Results for Package hybridHclust

Last updated on 2020-01-19 05:47:09 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 1.0-5 2.87 23.57 26.44 ERROR
r-devel-linux-x86_64-debian-gcc 1.0-5 2.11 19.93 22.04 OK
r-devel-linux-x86_64-fedora-clang 1.0-5 34.83 OK
r-devel-linux-x86_64-fedora-gcc 1.0-5 33.51 OK
r-devel-windows-ix86+x86_64 1.0-5 10.00 39.00 49.00 OK
r-devel-windows-ix86+x86_64-gcc8 1.0-5 6.00 61.00 67.00 OK
r-patched-linux-x86_64 1.0-5 1.78 23.51 25.29 OK
r-patched-solaris-x86 1.0-5 46.90 OK
r-release-linux-x86_64 1.0-5 2.26 23.19 25.45 OK
r-release-windows-ix86+x86_64 1.0-5 9.00 38.00 47.00 OK
r-release-osx-x86_64 1.0-5 OK
r-oldrel-windows-ix86+x86_64 1.0-5 5.00 49.00 54.00 OK
r-oldrel-osx-x86_64 1.0-5 OK

Check Details

Version: 1.0-5
Check: examples
Result: ERROR
    Running examples in 'hybridHclust-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: get.distances
    > ### Title: Extract Distances From Mutual Cluster
    > ### Aliases: get.distances
    > ### Keywords: cluster
    >
    > ### ** Examples
    >
    > x <- cbind(c(-1.4806,1.5772,-0.9567,-0.92,-1.9976,-0.2723,-0.3153),
    + c(-0.6283,-0.1065,0.428,-0.7777,-1.2939,-0.7796,0.012))
    > mc1 <- mutualCluster(x)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    hybridHclust
     --- call from context ---
    setmc(d[[1]], dmat)
     --- call from argument ---
    if (class(dmat) == "dist") dmat <- as.matrix(dmat)
     --- R stacktrace ---
    where 1: setmc(d[[1]], dmat)
    where 2: setmc(setobs(as.dendrogram(h)), dmat)
    where 3: getmc(h, distances, plot)
    where 4: mutualCluster(x)
    
     --- value of length: 2 type: logical ---
    [1] FALSE FALSE
     --- function from context ---
    function (d, dmat)
    {
     if (class(dmat) == "dist")
     dmat <- as.matrix(dmat)
     if (attr(d, "members") > 1) {
     d[[1]] <- setmc(d[[1]], dmat)
     d[[2]] <- setmc(d[[2]], dmat)
     obs <- attr(d, "obs")
     if ((length(obs) < nrow(dmat)) && (max(dmat[obs, obs]) <
     min(dmat[obs, -obs])))
     attr(d, "edgetext") <- " "
     }
     return(d)
    }
    <bytecode: 0x1710028>
    <environment: namespace:hybridHclust>
     --- function search by body ---
    Function setmc in namespace hybridHclust has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(dmat) == "dist") dmat <- as.matrix(dmat) :
     the condition has length > 1
    Calls: mutualCluster -> getmc -> setmc -> setmc
    Execution halted
Flavor: r-devel-linux-x86_64-debian-clang