* using log directory ‘/data/gannet/ripley/R/packages/tests-LENGTH1/kedd.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 ‘kedd/DESCRIPTION’ ... OK
* checking extension type ... Package
* this is package ‘kedd’ version ‘1.0.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 ‘kedd’ can be installed ... [18s/48s] OK
* checking package directory ... OK
* checking ‘build’ 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 ... [27s/71s] 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 LazyData ... OK
* checking data for ASCII and uncompressed saves ... OK
* checking sizes of PDF files under ‘inst/doc’ ... OK
* checking installed files from ‘inst/doc’ ... OK
* checking files in ‘vignettes’ ... OK
* checking examples ... ERROR
Running examples in ‘kedd-Ex.R’ failed
The error most likely occurred in:

> ### Name: dkde
> ### Title: Derivatives of Kernel Density Estimator
> ### Aliases: dkde dkde.default print.dkde
> ### Keywords: smooth nonparametric density derivative
> 
> ### ** Examples
> 
> ## EXAMPLE 1:  Simple example of a Gaussian density derivative
> 
> x <- rnorm(100)
> dkde(x,deriv.order=0)  ## KDE of f
 ----------- FAILURE REPORT -------------- 
 --- failure: length > 1 in coercion to logical ---
 --- srcref --- 
: 
 --- package (from environment) --- 
kedd
 --- call from context --- 
dkde.default(x, deriv.order = 0)
 --- call from argument --- 
kernel == "epanechnikov" && r >= 3
 --- R stacktrace ---
where 1: dkde.default(x, deriv.order = 0)
where 2: dkde(x, deriv.order = 0)

 --- value of length: 8 type: logical ---
[1] FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE
 --- function from context --- 
function (x, y = NULL, deriv.order = 0, h, kernel = c("gaussian", 
    "epanechnikov", "uniform", "triangular", "triweight", "tricube", 
    "biweight", "cosine"), ...) 
{
    if (!is.numeric(x) || length(dim(x)) >= 1 || length(x) < 
        3L) 
        stop("argument 'x' must be numeric and need at least 3 data points")
    if (any(deriv.order < 0 || deriv.order != round(deriv.order))) 
        stop("argument 'deriv.order' is non-negative integers")
    r <- deriv.order
    if (kernel == "epanechnikov" && r >= 3) 
        stop(" 'epanechnikov kernel derivative = 0' for 'order >= 3' ")
    if (kernel == "uniform" && r >= 1) 
        stop(" 'uniform kernel derivative = 0' for 'order >= 1' ")
    if (kernel == "triweight" && r >= 7) 
        stop(" 'triweight kernel derivative = 0' for 'order >= 7' ")
    if (kernel == "biweight" && r >= 5) 
        stop(" 'biweight kernel derivative = 0' for 'order >= 5' ")
    if (kernel == "triangular" && r >= 2) 
        stop(" 'triangular kernel derivative = 0' for 'order >= 2' ")
    if (kernel == "tricube" && r >= 10) 
        stop(" 'tricube kernel derivative = 0' for 'order >= 10' ")
    name <- deparse(substitute(x))
    if (missing(r)) 
        r <- 0
    if (missing(kernel)) 
        kernel <- "gaussian"
    if (missing(h)) 
        h <- h.ucv(x, deriv.order = r, kernel = kernel)$h
    x <- x[!is.na(x)]
    if (is.null(y)) {
        tau <- 4
        range.x <- c(min(x) - tau * h, max(x) + tau * h)
        y <- seq(range.x[1L], range.x[2L], length.out = 512L)
    }
    aux <- outer(y, x, "-")/h
    fn <- kernel_fun_der(kernel, aux, r)/h^(r + 1)
    fn <- apply(fn, 1, mean)
    structure(list(x = x, data.name = name, n = length(x), kernel = kernel, 
        deriv.order = r, h = h, eval.points = y, est.fx = fn), 
        class = "dkde")
}
<bytecode: 0x2c0dfc0>
<environment: namespace:kedd>
 --- function search by body ---
Function dkde.default in namespace kedd has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: length > 1 in coercion to logical
* checking for unstated dependencies in vignettes ... OK
* checking package vignettes in ‘inst/doc’ ... OK
* checking re-building of vignette outputs ... [7s/21s] ERROR
Error(s) in re-building vignettes:
--- re-building ‘intro.Rnw’ using Sweave
--- finished re-building ‘intro.Rnw’

--- re-building ‘kedd.Rnw’ using Sweave
 ----------- FAILURE REPORT -------------- 
 --- failure: length > 1 in coercion to logical ---
 --- srcref --- 
: 
 --- package (from environment) --- 
kedd
 --- call from context --- 
dkde.default(bimodal, deriv.order = 0)
 --- call from argument --- 
kernel == "epanechnikov" && r >= 3
 --- R stacktrace ---
where 1: dkde.default(bimodal, deriv.order = 0)
where 2: dkde(bimodal, deriv.order = 0)
where 3: eval(expr, .GlobalEnv)
where 4: eval(expr, .GlobalEnv)
where 5: withVisible(eval(expr, .GlobalEnv))
where 6: doTryCatch(return(expr), name, parentenv, handler)
where 7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 8: tryCatchList(expr, classes, parentenv, handlers)
where 9: tryCatch(expr, error = function(e) {
    call <- conditionCall(e)
    if (!is.null(call)) {
        if (identical(call[[1L]], quote(doTryCatch))) 
            call <- sys.call(-4L)
        dcall <- deparse(call, nlines = 1L)
        prefix <- paste("Error in", dcall, ": ")
        LONG <- 75L
        sm <- strsplit(conditionMessage(e), "\n")[[1L]]
        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")
        if (is.na(w)) 
            w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], 
                type = "b")
        if (w > LONG) 
            prefix <- paste0(prefix, "\n  ")
    }
    else prefix <- "Error : "
    msg <- paste0(prefix, conditionMessage(e), "\n")
    .Internal(seterrmessage(msg[1L]))
    if (!silent && isTRUE(getOption("show.error.messages"))) {
        cat(msg, file = outFile)
        .Internal(printDeferredWarnings())
    }
    invisible(structure(msg, class = "try-error", condition = e))
})
where 10: try(withVisible(eval(expr, .GlobalEnv)), silent = TRUE)
where 11: evalFunc(ce, options)
where 12: tryCatchList(expr, classes, parentenv, handlers)
where 13: tryCatch(evalFunc(ce, options), finally = {
    cat("\n")
    sink()
})
where 14: driver$runcode(drobj, chunk, chunkopts)
where 15: utils::Sweave(...)
where 16: engine$weave(file, quiet = quiet, encoding = enc)
where 17: doTryCatch(return(expr), name, parentenv, handler)
where 18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 19: tryCatchList(expr, classes, parentenv, handlers)
where 20: tryCatch({
    engine$weave(file, quiet = quiet, encoding = enc)
    setwd(startdir)
    output <- find_vignette_product(name, by = "weave", engine = engine)
    if (!have.makefile && vignette_is_tex(output)) {
        texi2pdf(file = output, clean = FALSE, quiet = quiet)
        output <- find_vignette_product(name, by = "texi2pdf", 
            engine = engine)
    }
    outputs <- c(outputs, output)
}, error = function(e) {
    thisOK <<- FALSE
    fails <<- c(fails, file)
    message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s", 
        file, conditionMessage(e)))
})
where 21: tools:::buildVignettes(dir = "/data/gannet/ripley/R/packages/tests-LENGTH1/kedd.Rcheck/vign_test/kedd")

 --- value of length: 8 type: logical ---
[1] FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE
 --- function from context --- 
function (x, y = NULL, deriv.order = 0, h, kernel = c("gaussian", 
    "epanechnikov", "uniform", "triangular", "triweight", "tricube", 
    "biweight", "cosine"), ...) 
{
    if (!is.numeric(x) || length(dim(x)) >= 1 || length(x) < 
        3L) 
        stop("argument 'x' must be numeric and need at least 3 data points")
    if (any(deriv.order < 0 || deriv.order != round(deriv.order))) 
        stop("argument 'deriv.order' is non-negative integers")
    r <- deriv.order
    if (kernel == "epanechnikov" && r >= 3) 
        stop(" 'epanechnikov kernel derivative = 0' for 'order >= 3' ")
    if (kernel == "uniform" && r >= 1) 
        stop(" 'uniform kernel derivative = 0' for 'order >= 1' ")
    if (kernel == "triweight" && r >= 7) 
        stop(" 'triweight kernel derivative = 0' for 'order >= 7' ")
    if (kernel == "biweight" && r >= 5) 
        stop(" 'biweight kernel derivative = 0' for 'order >= 5' ")
    if (kernel == "triangular" && r >= 2) 
        stop(" 'triangular kernel derivative = 0' for 'order >= 2' ")
    if (kernel == "tricube" && r >= 10) 
        stop(" 'tricube kernel derivative = 0' for 'order >= 10' ")
    name <- deparse(substitute(x))
    if (missing(r)) 
        r <- 0
    if (missing(kernel)) 
        kernel <- "gaussian"
    if (missing(h)) 
        h <- h.ucv(x, deriv.order = r, kernel = kernel)$h
    x <- x[!is.na(x)]
    if (is.null(y)) {
        tau <- 4
        range.x <- c(min(x) - tau * h, max(x) + tau * h)
        y <- seq(range.x[1L], range.x[2L], length.out = 512L)
    }
    aux <- outer(y, x, "-")/h
    fn <- kernel_fun_der(kernel, aux, r)/h^(r + 1)
    fn <- apply(fn, 1, mean)
    structure(list(x = x, data.name = name, n = length(x), kernel = kernel, 
        deriv.order = r, h = h, eval.points = y, est.fx = fn), 
        class = "dkde")
}
<bytecode: 0x19d62c8>
<environment: namespace:kedd>
 --- function search by body ---
Function dkde.default in namespace kedd 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: 2 ERRORs
See
  ‘/data/gannet/ripley/R/packages/tests-LENGTH1/kedd.Rcheck/00check.log’
for details.

Command exited with non-zero status 1
Time 4:02.06, 80.81 + 7.56