* using log directory ‘/data/gannet/ripley/R/packages/tests-LENGTH1/nlsrk.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 ‘nlsrk/DESCRIPTION’ ... OK
* this is package ‘nlsrk’ version ‘1.1’
* 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 ‘nlsrk’ 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 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 ... [6s/16s] 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 ... ERROR
Running examples in ‘nlsrk-Ex.R’ failed
The error most likely occurred in:

> ### Name: evrunge
> ### Title: Numerical Runge-Kutta Solver (multi point, multivariate)
> ### Aliases: evrunge
> ### Keywords: nonlinear
> 
> ### ** Examples
> 
> ##
> ##	example 1 : solving and plotting the system sys provided in the package
> ##
> data(syslin.don)
> syslin<-prepare(syslin.don)
>   evrunge(t=c(1:30),param=c(1,1),y0=c(1000,0),sys=sys,graph=TRUE)
 ----------- FAILURE REPORT -------------- 
 --- failure: length > 1 in coercion to logical ---
 --- srcref --- 
: 
 --- package (from environment) --- 
nlsrk
 --- call from context --- 
evrunge(t = c(1:30), param = c(1, 1), y0 = c(1000, 0), sys = sys, 
    graph = TRUE)
 --- call from argument --- 
v == c(0, 1) || v == c(0)
 --- R stacktrace ---
where 1: evrunge(t = c(1:30), param = c(1, 1), y0 = c(1000, 0), sys = sys, 
    graph = TRUE)

 --- value of length: 2 type: logical ---
[1] FALSE  TRUE
 --- function from context --- 
function (t, param, y0, sys, dt = 0.01, graph = FALSE, observable = rep(1, 
    length(y0))) 
{
    n <- length(unique(t))
    if (!prod(sort(t[1:n]) == t[1:n])) 
        stop("*** ERROR *** : times not in increasing order. Please sort time vector svp\n")
    if (!(min(diff(t[1:n]) > dt))) 
        stop("*** ERROR *** : All time intervals must be greater then dt \n")
    v <- as.numeric(sort(levels(factor(observable))))
    if (!any(v == c(0, 1) || v == c(0) || v == c(1))) 
        stop("*** ERROR *** : observable vector must be binary (0 or 1) \n")
    if (all(v == c(0))) 
        stop("*** ERROR *** : At least one observable solution must be indicated \n")
    t <- unique(t)
    npas <- length(t) - 1
    Y <- y0
    nfonct <- length(Y)
    nfobs <- sum(observable)
    z <- NULL
    z <- rbind(z, as.vector(Y))
    for (i in 1:npas) {
        u <- Y
        tmin <- t[i]
        tmax <- t[i + 1]
        Y <- multirunge(y0 = u, tmin, tmax, dt, param, sys)
        z <- rbind(z, as.vector(Y))
    }
    res <- as.data.frame(cbind(t, z[, observable == 1]))
    namecol <- NULL
    for (j in 1:nfobs) namecol <- c(namecol, paste("f", as.character(j), 
        sep = ""))
    namecol <- c("time", namecol)
    names(res) <- namecol
    if (graph) {
        plot(res$time, res$f1, type = "l", ylim = c(min(res[, 
            2:(nfobs + 1)]), max(res[, 2:(nfobs + 1)])))
        if (nfobs > 1) 
            for (j in 2:(nfobs + 1)) lines(res$time, res[, j], 
                lty = j)
        abline(0, 0)
        abline(v = 0)
        title("Ordinary Differential Equations system")
    }
    yhat <- NULL
    for (j in 2:(nfobs + 1)) {
        yhat <- rbind(yhat, matrix(res[, j]))
    }
    invisible(yhat)
}
<bytecode: 0x459e698>
<environment: namespace:nlsrk>
 --- function search by body ---
Function evrunge in namespace nlsrk 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/nlsrk.Rcheck/00check.log’
for details.

Command exited with non-zero status 1
Time 1:38.99, 30.88 + 6.00