* using log directory ‘/data/gannet/ripley/R/packages/tests-LENGTH1/DySeq.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 ‘DySeq/DESCRIPTION’ ... OK
* checking extension type ... Package
* this is package ‘DySeq’ version ‘0.22’
* 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 ‘DySeq’ can be installed ... [5s/15s] 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 ... [9s/22s] 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 examples ... [9s/22s] ERROR
Running examples in ‘DySeq-Ex.R’ failed
The error most likely occurred in:

> ### Name: NonCumHaz
> ### Title: NonCumHaz
> ### Aliases: NonCumHaz
> 
> ### ** Examples
> 
> 
> # Example 1: Short artificial data
> # example cumulated hazard with time referenz
> cumhaz<-c(0.2 ,0.21 ,0.31 ,0.44 ,1.1  ,1.1  ,1.12 ,1.2)
> time<-c(4     ,5    ,6    ,7    ,10   ,14   ,15   ,16)
> 
> NonCumHaz(cumhaz, time, plot=TRUE)
 ----------- FAILURE REPORT -------------- 
 --- failure: length > 1 in coercion to logical ---
 --- srcref --- 
: 
 --- package (from environment) --- 
DySeq
 --- call from context --- 
NonCumHaz(cumhaz, time, plot = TRUE)
 --- call from argument --- 
is.na(t) && plot
 --- R stacktrace ---
where 1: NonCumHaz(cumhaz, time, plot = TRUE)

 --- value of length: 8 type: logical ---
[1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
 --- function from context --- 
function (x, t = NA, plot = FALSE) 
{
    if (!(any(class(x) == "survfit") || is.numeric(x))) {
        warning("x needs to be a numeric vector or a survfit-object!")
    }
    if (is.na(t) && plot && (!any(class(x) == "survfit"))) {
        warning("plot can not be produced, because time referrence is missing!")
    }
    if (is.numeric(x)) {
        output <- numeric(length(x))
        for (i in 1:(length(x) - 1)) output[i] <- x[1 + i] - 
            x[i]
        if (plot) {
            o1 <- plot(output[1:(length(output) - 1)] ~ t[1:(length(output) - 
                1)], xlab = "Time", ylab = "Hazard", type = "l")
        }
    }
    if (any(class(x) == "survfit")) {
        my.cumhaz <- x$cumhaz
        my.cumhaz <- c(0, my.cumhaz)
        my.hazard <- c()
        for (i in 1:(length(my.cumhaz) - 1)) my.hazard[i] <- my.cumhaz[1 + 
            i] - my.cumhaz[i]
        if (plot) {
            o1 <- plot(my.hazard[1:(length(my.hazard) - 1)] ~ 
                x$time[1:(length(my.hazard) - 1)], xlab = "Time", 
                ylab = "Hazard", type = "l")
        }
        output <- my.hazard
    }
    return(output)
}
<bytecode: 0x33cb7b0>
<environment: namespace:DySeq>
 --- function search by body ---
Function NonCumHaz in namespace DySeq 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/DySeq.Rcheck/00check.log’
for details.

Command exited with non-zero status 1
Time 2:22.54, 47.83 + 6.51