Last updated on 2026-10-05 06:52:54 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.5.4 | 20.77 | 33.04 | 53.81 | OK | |
| r-devel-linux-x86_64-debian-gcc | 0.5.4 | 18.96 | 26.95 | 45.91 | OK | |
| r-devel-linux-x86_64-fedora-clang | 0.6.0 | 16.00 | 26.56 | 42.56 | OK | |
| r-devel-linux-x86_64-fedora-gcc | 0.5.4 | 20.00 | 21.64 | 41.64 | OK | |
| r-devel-windows-x86_64 | 0.5.4 | 24.00 | 133.00 | 157.00 | OK | |
| r-patched-linux-x86_64 | 0.5.4 | 23.63 | 26.19 | 49.82 | OK | |
| r-release-linux-x86_64 | 0.5.4 | OK | ||||
| r-release-macos-arm64 | 0.5.4 | 5.00 | 10.00 | 15.00 | OK | |
| r-release-macos-x86_64 | 0.6.0 | 16.00 | 65.00 | 81.00 | OK | |
| r-release-windows-x86_64 | 0.5.4 | 25.00 | 67.00 | 92.00 | OK | |
| r-oldrel-macos-arm64 | 0.6.0 | ERROR | ||||
| r-oldrel-macos-x86_64 | 0.6.0 | 16.00 | 62.00 | 78.00 | OK | |
| r-oldrel-windows-x86_64 | 0.5.4 | 22.00 | 74.00 | 96.00 | OK |
Version: 0.6.0
Check: tests
Result: ERROR
Running ‘regression.R’ [0s/0s]
Running the tests in ‘tests/regression.R’ failed.
Complete output:
> # Small, deterministic/frozen-fixture tests; no full study or benchmark.
> library(BET)
> stopifnot(as.character(packageVersion("BET")) == "0.6.0")
> fixtures <- readRDS("fixtures/inputs.rds")
> expected <- readRDS("fixtures/expected_054.rds")
> api <- readRDS("fixtures/api_054.rds")
> checks <- 0L
> ok <- function(x) {stopifnot(isTRUE(x));checks <<- checks+1L;invisible(TRUE)}
> error <- function(expr, pattern=NULL) {
+ ans <- tryCatch({force(expr);NULL},error=function(e)e)
+ ok(inherits(ans,"error"))
+ if (!is.null(pattern)) ok(grepl(pattern,conditionMessage(ans),fixed=TRUE))
+ }
> inside <- function(name) getFromNamespace(paste0(".beast_asym_",name),"BET")
> RNGkind("Mersenne-Twister","Inversion","Rejection")
> for (id in names(fixtures)) {
+ f <- fixtures[[id]]; X <- f$X
+ for (name in names(api)) {
+ fun <- getExportedValue("BET",name)
+ ok(identical(formals(fun),api[[name]]$formals))
+ ok(identical(deparse(body(fun),width.cutoff=500L),api[[name]]$body))
+ }
+ set.seed(f$statistic_seed)
+ fit <- BEAST(X,3,subsample.percent=f$fraction,B=f$B,lambda=f$lambda,
+ index=list(1L,2L),method="stat")
+ after <- .Random.seed
+ ok(identical(fit,expected[[id]]$BEAST))
+ set.seed(f$statistic_seed)
+ repeat_fit <- BEAST(X,3,subsample.percent=f$fraction,B=f$B,lambda=f$lambda,
+ index=list(1L,2L),method="stat")
+ ok(identical(fit,repeat_fit) && identical(.Random.seed,after))
+ ok(identical(MaxBET(X,3,index=list(1L,2L)),expected[[id]]$MaxBET))
+ ok(identical(MaxBETs(X,3,index=list(1L,2L)),expected[[id]]$MaxBETs))
+ ok(identical(cell.counts(X,3),expected[[id]]$cell.counts))
+ ok(identical(symm(X,3,print.sample.size=FALSE),expected[[id]]$symm))
+ ok(identical(get.signs(X,3),expected[[id]]$get.signs))
+ }
Error in ok(identical(fit, expected[[id]]$BEAST)) : isTRUE(x) is not TRUE
Calls: ok -> stopifnot
Execution halted
Flavor: r-oldrel-macos-arm64