* using log directory ‘/data/gannet/ripley/R/packages/tests-LENGTH1/edci.Rcheck’
* using R Under development (unstable) (2022-04-26 r82260)
* using platform: x86_64-pc-linux-gnu (64-bit)
* using session charset: UTF-8
* using option ‘--no-stop-on-test-error’
* checking for file ‘edci/DESCRIPTION’ ... OK
* this is package ‘edci’ version ‘1.1-3’
* checking package namespace information ... OK
* checking package dependencies ... OK
* checking if this is a source package ... OK
* checking if there is a namespace ... OK
* checking for executable files ... OK
* checking for hidden files and directories ... OK
* checking for portable file names ... OK
* checking for sufficient/correct file permissions ... OK
* checking whether package ‘edci’ can be installed ... [7s/17s] OK
* checking package directory ... OK
* checking DESCRIPTION meta-information ... OK
* checking top-level files ... OK
* checking for left-over files ... OK
* checking index information ... OK
* checking package subdirectories ... OK
* checking R files for non-ASCII characters ... OK
* checking R files for syntax errors ... OK
* checking whether the package can be loaded ... OK
* checking whether the package can be loaded with stated dependencies ... OK
* checking whether the package can be unloaded cleanly ... OK
* checking whether the namespace can be loaded with stated dependencies ... OK
* checking whether the namespace can be unloaded cleanly ... OK
* checking loading without being on the library search path ... OK
* checking use of S3 registration ... OK
* checking dependencies in R code ... OK
* checking S3 generic/method consistency ... OK
* checking replacement functions ... OK
* checking foreign function calls ... OK
* checking R code for possible problems ... [8s/20s] OK
* checking Rd files ... OK
* checking Rd metadata ... OK
* checking Rd line widths ... OK
* checking Rd cross-references ... OK
* checking for missing documentation entries ... OK
* checking for code/documentation mismatches ... OK
* checking Rd \usage sections ... OK
* checking Rd contents ... OK
* checking for unstated dependencies in examples ... OK
* checking line endings in C/C++/Fortran sources/headers ... OK
* checking pragmas in C/C++ headers and code ... OK
* checking compilation flags used ... OK
* checking compiled code ... OK
* checking examples ... ERROR
Running examples in ‘edci-Ex.R’ failed
The error most likely occurred in:

> ### Name: circMclust
> ### Title: Circular Clustering
> ### Aliases: circMclust plot.circMclust print.circMclust
> ### Keywords: cluster regression robust
> 
> ### ** Examples
> 
>   z = (1:100 * pi)/50
>   x = c(sin(z) * 10 + 20, sin(z) * 30 + 80) + rnorm(200,0,2)
>   y = c(cos(z) * 10 + 20, cos(z) * 30 + 80) + rnorm(200,0,2)
> 
>   circ = circMclust(x, y, 5, method = "prob",
+     prec = 1, nsc = 20, minsd = 10, maxsd = 40)
Break with <CTRL>-C (linux) or <ESC> (windows)
 ----------- FAILURE REPORT -------------- 
 --- failure: length > 1 in coercion to logical ---
 --- srcref --- 
: 
 --- package (from environment) --- 
edci
 --- call from context --- 
deldupMclust(cbind(cx, cy, r)[1:count, ], prec = prec)
 --- call from argument --- 
!is.null(c) && c == "oregMclust"
 --- R stacktrace ---
where 1: deldupMclust(cbind(cx, cy, r)[1:count, ], prec = prec)
where 2: nrow(deldupMclust(cbind(cx, cy, r)[1:count, ], prec = prec))
where 3: circMclust(x, y, 5, method = "prob", prec = 1, nsc = 20, minsd = 10, 
    maxsd = 40)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (clust, prec = NULL, ncol = NULL, dz = TRUE) 
{
    c = class(clust)
    if (is.matrix(clust) && dz && any(colnames(clust) == "value")) {
        if (sum(clust[1:nrow(clust), "value"] != 0) == 0) 
            clust = clust[1, ]
        else clust = clust[1:nrow(clust) * (clust[1:nrow(clust), 
            "value"] != 0), ]
    }
    if (is.matrix(clust)) {
        if (all(is.null(dimnames(clust))) | all(dimnames(clust)[[2]] != 
            "count")) {
            count = rep(1, nrow(clust))
            clust = cbind(clust, count)
        }
        if (is.null(ncol)) {
            if (!is.null(c) && c == "oregMclust") 
                ncol = 2
            else if (!is.null(c) && c == "circMclust") 
                ncol = 3
            else ncol = ncol(clust) - sum(colnames(clust) %in% 
                c("value", "count", "proj", "env"))
        }
        if (ncol > ncol(clust)) 
            ncol = ncol(clust)
        if (!is.null(prec)) {
            clust[, 1:ncol] = round(clust[, 1:ncol], prec)
            if (!is.null(c) && c == "oregMclust") 
                clust[, 1] = clust[, 1]%%round(2 * pi, prec)
        }
        result = clust
        count = 1
        for (i in 2:nrow(clust)) {
            j = 1
            ins = TRUE
            while (j <= count && ins) {
                if (is.na(all(clust[i, 1:ncol] == result[j, 1:ncol])) | 
                  all(clust[i, 1:ncol] == result[j, 1:ncol])) {
                  ins = FALSE
                  if (!is.na(all(clust[i, 1:ncol] == result[j, 
                    1:ncol]))) 
                    result[j, "count"] = result[j, "count"] + 
                      clust[i, "count"]
                }
                j = j + 1
            }
            if (ins) {
                count = count + 1
                result[count, ] = clust[i, ]
            }
        }
        result = result[1:count, ]
        if (count > 1) 
            class(result) = c
    }
    else result = clust
    result
}
<bytecode: 0x26b03f0>
<environment: namespace:edci>
 --- function search by body ---
Function deldupMclust in namespace edci has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: length > 1 in coercion to logical
* checking PDF version of manual ... OK
* checking for non-standard things in the check directory ... OK
* checking for detritus in the temp directory ... OK
* DONE

Status: 1 ERROR
See
  ‘/data/gannet/ripley/R/packages/tests-LENGTH1/edci.Rcheck/00check.log’
for details.

Command exited with non-zero status 1
Time 1:47.75, 35.18 + 6.13