* using log directory ‘/data/blackswan/ripley/R/packages/tests-devel/DET.Rcheck’
* using R Under development (unstable) (2022-03-11 r81877)
* using platform: x86_64-pc-linux-gnu (64-bit)
* using session charset: UTF-8
* checking for file ‘DET/DESCRIPTION’ ... OK
* checking extension type ... Package
* this is package ‘DET’ version ‘3.0.1’
* package encoding: UTF-8
* 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 ‘DET’ can be installed ... 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 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 ... 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 contents of ‘data’ directory ... OK
* checking data for non-ASCII characters ... OK
* checking data for ASCII and uncompressed saves ... OK
* checking examples ... OK
* checking examples with --run-donttest ... ERROR
Running examples in ‘DET-Ex.R’ failed
The error most likely occurred in:

> ### Name: detc
> ### Title: DET Curve calculation
> ### Aliases: detc
> 
> ### ** Examples
> 
> ## No test: 
> library(DET)
> n = 500
> #Predictors with normal distribution
> set.seed(1235)
> scoreNegative1 = rnorm(n, mean = 0.25, sd = 0.125)
> set.seed(5321)
> scoreNegative2 = rnorm(n, mean = 0.25, sd = 0.125)
> set.seed(11452)
> scorePositive1 = rnorm(n, mean = 0.55, sd = 0.125)
> set.seed(54321)
> scorePositive2 = rnorm(n, mean = 0.65, sd = 0.125)
> response = as.factor(c(rep(c("target"), times = n), rep(c("nontarget"), times = n)))
> predictor1 = c(scoreNegative1, scorePositive1)
> predictor2 = c(scoreNegative2, scorePositive2)
> predictors = matrix(c(predictor1, predictor2), ncol = 2)
> colnames(predictors) = c("DET1", "DET2")
> detCurves = detc(
+   response,
+   predictors,
+   positive = "target",
+   names = colnames(predictors)
+ )
Calculating DET Curve for: DET1 
Setting direction: controls > cases
Calculating DET Curve for: DET2 
Setting direction: controls > cases
> 
> #Run in parallel for a faster execution activating logical argument 'parallel'
> #and setting the number of cores of your computer
> #logical argument 'parallel'
> detCurvesWithConfidenceInterval = detc(
+   response,
+   predictors,
+   positive = "target",
+   names = colnames(predictors),
+   conf = 0.95,
+   parallel = TRUE,
+   ncores = 2
+ )
Calculating DET Curve for: DET1 
Setting direction: controls > cases
 ----------- FAILURE REPORT -------------- 
 --- failure: length > 1 in coercion to logical ---
 --- srcref --- 
: 
 --- package (from environment) --- 
plyr
 --- call from context --- 
llply(.data = .data, .fun = .fun, ..., .progress = .progress, 
    .inform = .inform, .parallel = .parallel, .paropts = .paropts)
 --- call from argument --- 
.progress == "none" && !.inform
 --- R stacktrace ---
where 1: llply(.data = .data, .fun = .fun, ..., .progress = .progress, 
    .inform = .inform, .parallel = .parallel, .paropts = .paropts)
where 2: ldply(1:boot.n, stratified.ci.se, roc = roc, sp = specificities, 
    .progress = progress, .parallel = parallel)
where 3: ci.se.roc(rocCurve, specificities = rocCurve$specificities, conf.level = conf, 
    boot.n = as.integer(nboot), method = "bootstrap", parallel = parallel)
where 4: ci.se(rocCurve, specificities = rocCurve$specificities, conf.level = conf, 
    boot.n = as.integer(nboot), method = "bootstrap", parallel = parallel)
where 5: detc(response, predictors, positive = "target", names = colnames(predictors), 
    conf = 0.95, parallel = TRUE, ncores = 2)

 --- value of length: 3 type: logical ---
 init  step  term 
FALSE FALSE FALSE 
 --- function from context --- 
function (.data, .fun = NULL, ..., .progress = "none", .inform = FALSE, 
    .parallel = FALSE, .paropts = NULL) 
{
    if (is.null(.fun)) 
        return(as.list(.data))
    if (is.character(.fun) || is.list(.fun)) 
        .fun <- each(.fun)
    if (!is.function(.fun)) 
        stop(".fun is not a function.")
    if (!inherits(.data, "split")) {
        pieces <- as.list(.data)
        fast_path <- .progress == "none" && !.inform && !.parallel
        if (fast_path) {
            return(structure(lapply(pieces, .fun, ...), dim = dim(pieces)))
        }
    }
    else {
        pieces <- .data
    }
    n <- length(pieces)
    if (n == 0) 
        return(list())
    if (.parallel && .progress != "none") {
        message("Progress disabled when using parallel plyr")
        .progress <- "none"
    }
    progress <- create_progress_bar(.progress)
    progress$init(n)
    on.exit(progress$term())
    result <- vector("list", n)
    do.ply <- function(i) {
        piece <- pieces[[i]]
        if (.inform) {
            res <- try(.fun(piece, ...))
            if (inherits(res, "try-error")) {
                piece <- paste(utils::capture.output(print(piece)), 
                  collapse = "\n")
                stop("with piece ", i, ": \n", piece, call. = FALSE)
            }
        }
        else {
            res <- .fun(piece, ...)
        }
        progress$step()
        res
    }
    if (.parallel) {
        setup_parallel()
        i <- seq_len(n)
        fe_call <- as.call(c(list(quote(foreach::foreach), i = i), 
            .paropts))
        fe <- eval(fe_call)
        result <- foreach::`%dopar%`(fe, do.ply(i))
    }
    else {
        result <- loop_apply(n, do.ply)
    }
    attributes(result)[c("split_type", "split_labels")] <- attributes(pieces)[c("split_type", 
        "split_labels")]
    names(result) <- names(pieces)
    if (!is.null(dim(pieces))) {
        dim(result) <- dim(pieces)
    }
    result
}
<bytecode: 0x46d8b08>
<environment: namespace:plyr>
 --- function search by body ---
Function llply in namespace plyr 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
* checking for new files in some other directories ... OK
* DONE

Status: 1 ERROR
See
  ‘/data/blackswan/ripley/R/packages/tests-devel/DET.Rcheck/00check.log’
for details.

Command exited with non-zero status 1
Time 0:35.94, 28.92 + 6.35