CRAN Package Check Results for Package subplex

Last updated on 2024-03-28 23:55:21 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 1.8 5.91 81.11 87.02 OK
r-devel-linux-x86_64-debian-gcc 1.8 3.48 53.42 56.90 OK
r-devel-linux-x86_64-fedora-clang 1.8 97.81 OK
r-devel-linux-x86_64-fedora-gcc 1.8 99.69 OK
r-devel-windows-x86_64 1.8 11.00 234.00 245.00 ERROR
r-patched-linux-x86_64 1.8 4.53 77.95 82.48 OK
r-release-linux-x86_64 1.8 4.11 78.11 82.22 OK
r-release-macos-arm64 1.8 26.00 OK
r-release-macos-x86_64 1.8 49.00 OK
r-release-windows-x86_64 1.8 10.00 83.00 93.00 OK
r-oldrel-macos-arm64 1.8 27.00 OK
r-oldrel-windows-x86_64 1.8 17.00 93.00 110.00 OK

Check Details

Version: 1.8
Check: tests
Result: ERROR Running 'ripple.R' [170s] Running 'rosen.R' [26s] Comparing 'rosen.Rout' to 'rosen.Rout.save' ... OK Running the tests in 'tests/ripple.R' failed. Complete output: > library(subplex) > > ripple <- function (x) { + r <- sqrt(sum(x^2)) + 1-exp(-r^2)*cos(10*r)^2 + } > > fit <- subplex(par=c(1),fn=ripple,hessian=TRUE) > stopifnot(all.equal(fit$par,0,tol=1e-5)) > > fit <- subplex(par=c(1),fn="ripple",hessian=TRUE) > stopifnot(all.equal(fit$par,0,tol=1e-5)) > print(fit$message) [1] "success! tolerance satisfied" > > fit <- subplex(par=c(1),fn="ripple",hessian=TRUE) > stopifnot(all.equal(fit$par,0,tol=1e-5)) > > fit <- subplex(par=c(0.1,3),fn=ripple,hessian=TRUE) > stopifnot(all.equal(fit$value,0,tol=1e-5)) > > fit <- subplex(par=c(0.1,3),fn=ripple,hessian=TRUE, + control=list(parscale=c(0.01,0.001))) > > fit <- subplex(par=c(0.1,3,2),fn=ripple,hessian=TRUE) > stopifnot(all.equal(fit$par,c(0.45932,1.10399,0.34408),tol=1e-4)) > print(fit$message) [1] "success! tolerance satisfied" > > fit <- subplex(par=c(0.1,3),fn=ripple,control=list(reltol=0)) > print(fit$message) [1] "limit of machine precision reached" > fit <- subplex(par=c(0.1,3),fn=ripple,control=list(reltol=0,maxit=10)) > print(fit$message) [1] "number of function evaluations exceeds 'maxit'" > > try(subplex(par=c(0.1,3,2),fn=3,hessian=FALSE)) Error in match.fun(fn) : '3' is not a function, character or symbol > try(subplex(par=c(0.1,3,2),fn=ripple,control=list(reltol=-100))) Error : in 'subplex': 'reltol' must be a non-negative scalar > try(subplex(par=c(0.1,3,2),fn=ripple,control=list(maxit=-100))) Error : in 'subplex': 'maxit' must be a positive integer > try(subplex(par=numeric(0),fn=ripple)) Error : in 'subplex': 'par' must be a non-empty vector > > fit <- subplex(par=c(0.1,3,2),fn=ripple,control=list(parscale=0.1)) > stopifnot(all.equal(fit$value,1,tol=1e-4)) > > try(subplex(par=c(0.1,3,2),fn=ripple,control=list(parscale=c(0.1,0.5)))) Error : in 'subplex': 'parscale' misspecified: either specify a single scale or one for each component of 'par' > try(subplex(par=c(0.1,3,2),fn=ripple,control=list(parscale=c(0.01,0.05,1e-30)))) Error : in 'subplex': 'parscale' is too small relative to 'par' > fit <- subplex(par=c(0.1,3,2),fn=ripple,control=list(parscale=c(0.01,0.05,0.1))) > > fit <- subplex(par=c(0.1,3,2),fn=ripple,control=list(maxit=2)) > stopifnot(fit$conv==-1) > > fit <- subplex(par=c(0.1,3,2),fn=ripple,control=list(reltol=1e-3)) > stopifnot(all.equal(fit$value,0.791,tol=1e-3)) > > try(fit <- subplex(par=c(0.1,3,2),fn=ripple,control=list(parscale=c(1e-90)))) Error : in 'subplex': 'parscale' is too small relative to 'par' > try(fit <- subplex(par=c(1e100,3e100,2e100),fn=ripple,control=list(parscale=1e-10))) Error : in 'subplex': 'parscale' is too small relative to 'par' > > > proc.time() user system elapsed 0.15 0.10 0.25 Flavor: r-devel-windows-x86_64