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 |
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