Last updated on 2025-05-17 15:50:43 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.13-0 | 11.35 | 342.42 | 353.77 | OK | |
| r-devel-linux-x86_64-debian-gcc | 0.13-0 | 8.20 | 222.07 | 230.27 | OK | |
| r-devel-linux-x86_64-fedora-clang | 0.13-0 | 552.12 | OK | |||
| r-devel-linux-x86_64-fedora-gcc | 0.13-0 | 542.99 | OK | |||
| r-devel-windows-x86_64 | 0.13-0 | 12.00 | 318.00 | 330.00 | OK | |
| r-patched-linux-x86_64 | 0.13-0 | 11.91 | 319.70 | 331.61 | OK | |
| r-release-linux-x86_64 | 0.13-0 | 9.75 | 322.75 | 332.50 | OK | |
| r-release-macos-arm64 | 0.13-0 | 139.00 | OK | |||
| r-release-macos-x86_64 | 0.13-0 | 310.00 | OK | |||
| r-release-windows-x86_64 | 0.13-0 | 12.00 | 320.00 | 332.00 | OK | |
| r-oldrel-macos-arm64 | 0.13-0 | 144.00 | OK | |||
| r-oldrel-macos-x86_64 | 0.13-0 | 300.00 | OK | |||
| r-oldrel-windows-x86_64 | 0.13-0 | 15.00 | 430.00 | 445.00 | ERROR |
Version: 0.13-0
Check: tests
Result: ERROR
Running 'test-aab_env.R' [1s]
Running 'test-action_age.R' [4s]
Running 'test-action_grow-methods.R' [6s]
Running 'test-action_grow.R' [3s]
Running 'test-action_mature.R' [3s]
Running 'test-action_migrate.R' [3s]
Running 'test-action_naturalmortality.R' [1s]
Running 'test-action_predate-catchability.R' [6s]
Running 'test-action_predate-numberfleet.R' [3s]
Running 'test-action_predate-predator.R' [19s]
Running 'test-action_predate-timebasedsuitability.R' [4s]
Running 'test-action_predate.R' [8s]
Running 'test-action_renewal-otherfood.R' [10s]
Running 'test-action_renewal.R' [6s]
Running 'test-action_report.R' [2s]
Running 'test-action_spawn-multipleoutputs.R' [6s]
Running 'test-action_spawn.R' [6s]
Running 'test-action_spmodel.R' [2s]
Running 'test-action_tagging.R' [3s]
Running 'test-action_time.R' [2s]
Running 'test-action_weightloss.R' [3s]
Running 'test-array_utils.R' [4s]
Running 'test-env_dif.R' [2s]
Running 'test-eval.R' [1s]
Running 'test-formula_utils.R' [1s]
Running 'test-init_val.R' [2s]
Running 'test-likelihood_bounds.R' [3s]
Running 'test-likelihood_data.R' [5s]
Running 'test-likelihood_distribution-surveyindices.R' [3s]
Running 'test-likelihood_distribution.R' [18s]
Running 'test-likelihood_random.R' [1s]
Running 'test-likelihood_sparsesample.R' [5s]
Running 'test-likelihood_tagging_ckmr.R' [5s]
Running 'test-likelihood_understocking.R' [0s]
Running 'test-param_project-ar1.R' [5s]
Running 'test-param_project-logar1.R' [4s]
Running 'test-param_project.R' [2s]
Running 'test-params.R' [3s]
Running 'test-quota-assess.R' [7s]
Running 'test-quota-hockeyfleet.R' [5s]
Running 'test-quota.R' [2s]
Running 'test-regression.R' [1s]
Running 'test-run.R' [1s]
Running 'test-run_r.R' [3s]
Running 'test-run_tmb-reporting_enabled.R' [1s]
Running 'test-run_tmb.R' [5s]
Running 'test-step.R' [3s]
Running 'test-stock.R' [1s]
Running 'test-stock_age.R' [2s]
Running 'test-stock_areas.R' [3s]
Running 'test-stock_product.R' [0s]
Running 'test-stock_tag.R' [2s]
Running 'test-stock_time-fishingyear.R' [2s]
Running 'test-stock_time.R' [1s]
Running 'test-suitability-report.R' [9s]
Running 'test-suitability.R' [3s]
Running 'test-timedata.R' [2s]
Running 'test-timevariable.R' [1s]
Running the tests in 'tests/test-env_dif.R' failed.
Complete output:
> library(unittest)
>
> library(gadget3)
>
> params <- list()
> actions <- list()
>
> # NB: Should test under both CppAD and TMBAD
> # options(gadget3.tmb.framework = "CppAD")
>
> ###############################################################################
>
> dif_pmax_scl_dbl_in <- runif(1, 0, 100)
> dif_pmax_vec_in <- runif(10, 0, 100)
> dif_pmax_vec_vec_max <- runif(10, 0, 10) * 10
> actions[['dif_pmax_vec']] <- g3_formula(
+ {
+ expect_dif_pmax_scl_dbl <- dif_pmax(dif_pmax_scl_dbl_in, 40.0, 1e5)
+ expect_dif_pmax_vec_typ <- dif_pmax(dif_pmax_vec_in, dif_pmax_vec_typ_max, 1e5)
+ expect_dif_pmax_dervec_typ <- dif_pmax(dif_pmax_vec_in * 2, dif_pmax_vec_typ_max, 1e5)
+ expect_dif_pmax_vec_dbl <- dif_pmax(dif_pmax_vec_in, 30.0, 1e5)
+ expect_dif_pmax_vec_int <- dif_pmax(dif_pmax_vec_in, dif_pmax_vec_int_max, 1e5)
+ expect_dif_pmax_vec_vec <- dif_pmax(dif_pmax_vec_in, dif_pmax_vec_vec_max, 1e5)
+ },
+ dif_pmax_scl_dbl_in = dif_pmax_scl_dbl_in,
+ dif_pmax_vec_in = dif_pmax_vec_in,
+ dif_pmax_vec_typ_max = 40.0,
+ dif_pmax_vec_int_max = 60L,
+ dif_pmax_vec_vec_max = dif_pmax_vec_vec_max,
+ expect_dif_pmax_scl_dbl = pmax(dif_pmax_scl_dbl_in, 40),
+ expect_dif_pmax_vec_typ = pmax(dif_pmax_vec_in, 40.0),
+ expect_dif_pmax_dervec_typ = pmax(dif_pmax_vec_in * 2, 40.0),
+ expect_dif_pmax_vec_dbl = pmax(dif_pmax_vec_in, 30.0),
+ expect_dif_pmax_vec_int = pmax(dif_pmax_vec_in, 60L),
+ expect_dif_pmax_vec_vec = pmax(dif_pmax_vec_in, dif_pmax_vec_vec_max),
+ end = NULL )
>
> dif_pmax_arr_in <- array(runif(10, 0, 9), dim = c(3, 3))
> dif_pmax_arr_vec_max <- runif(3, 0, 10) * 10
> actions[['dif_pmax_arr']] <- g3_formula(
+ {
+ expect_dif_pmax_arr_typ <- dif_pmax(dif_pmax_arr_in, dif_pmax_arr_typ_max, 1e5)
+ expect_dif_pmax_dearr_typ <- dif_pmax(dif_pmax_arr_in * 2, dif_pmax_arr_typ_max, 1e5)
+ expect_dif_pmax_arr_dbl <- dif_pmax(dif_pmax_arr_in, 30.0, 1e5)
+ expect_dif_pmax_arr_int <- dif_pmax(dif_pmax_arr_in, dif_pmax_arr_int_max, 1e5)
+ expect_dif_pmax_arr_vec <- dif_pmax(dif_pmax_arr_in, dif_pmax_arr_vec_max, 1e5)
+ },
+ dif_pmax_arr_in = dif_pmax_arr_in,
+ dif_pmax_arr_typ_max = 40.0,
+ dif_pmax_arr_int_max = 60L,
+ dif_pmax_arr_vec_max = dif_pmax_arr_vec_max,
+ expect_dif_pmax_arr_typ = pmax(dif_pmax_arr_in, 40.0),
+ expect_dif_pmax_dearr_typ = pmax(dif_pmax_arr_in * 2, 40.0),
+ expect_dif_pmax_arr_dbl = pmax(dif_pmax_arr_in, 30.0),
+ expect_dif_pmax_arr_int = pmax(dif_pmax_arr_in, 60L),
+ expect_dif_pmax_arr_vec = pmax(dif_pmax_arr_in, dif_pmax_arr_vec_max),
+ end = NULL )
>
> dif_pmin_vec_in <- runif(10, 0, 100)
> dif_pmin_vec_vec_max <- runif(10, 0, 10) * 10
> actions[['dif_pmin_vec']] <- g3_formula(
+ {
+ expect_dif_pmin_vec_typ <- dif_pmin(dif_pmin_vec_in, dif_pmin_vec_typ_max, 1e5)
+ expect_dif_pmin_vec_dbl <- dif_pmin(dif_pmin_vec_in, 30.0, 1e5)
+ expect_dif_pmin_vec_int <- dif_pmin(dif_pmin_vec_in, dif_pmin_vec_int_max, 1e5)
+ expect_dif_pmin_vec_vec <- dif_pmin(dif_pmin_vec_in, dif_pmin_vec_vec_max, 1e5)
+ },
+ dif_pmin_vec_in = dif_pmin_vec_in,
+ dif_pmin_vec_typ_max = 40.0,
+ dif_pmin_vec_int_max = 60L,
+ dif_pmin_vec_vec_max = dif_pmin_vec_vec_max,
+ expect_dif_pmin_vec_typ = pmin(dif_pmin_vec_in, 40.0),
+ expect_dif_pmin_vec_dbl = pmin(dif_pmin_vec_in, 30.0),
+ expect_dif_pmin_vec_int = pmin(dif_pmin_vec_in, 60L),
+ expect_dif_pmin_vec_vec = pmin(dif_pmin_vec_in, dif_pmin_vec_vec_max),
+ end = NULL )
>
> dif_pmin_arr_in <- array(runif(10, 0, 9), dim = c(3, 3))
> dif_pmin_arr_vec_max <- runif(3, 0, 10) * 10
> actions[['dif_pmin_arr']] <- g3_formula(
+ {
+ expect_dif_pmin_arr_typ <- dif_pmin(dif_pmin_arr_in, dif_pmin_arr_typ_max, 1e5)
+ expect_dif_pmin_arr_dbl <- dif_pmin(dif_pmin_arr_in, 30.0, 1e5)
+ expect_dif_pmin_arr_int <- dif_pmin(dif_pmin_arr_in, dif_pmin_arr_int_max, 1e5)
+ expect_dif_pmin_arr_vec <- dif_pmin(dif_pmin_arr_in, dif_pmin_arr_vec_max, 1e5)
+ },
+ dif_pmin_arr_in = dif_pmin_arr_in,
+ dif_pmin_arr_typ_max = 40.0,
+ dif_pmin_arr_int_max = 60L,
+ dif_pmin_arr_vec_max = dif_pmin_arr_vec_max,
+ expect_dif_pmin_arr_typ = pmin(dif_pmin_arr_in, 40.0),
+ expect_dif_pmin_arr_dbl = pmin(dif_pmin_arr_in, 30.0),
+ expect_dif_pmin_arr_int = pmin(dif_pmin_arr_in, 60L),
+ expect_dif_pmin_arr_vec = pmin(dif_pmin_arr_in, dif_pmin_arr_vec_max),
+ end = NULL )
>
> dif_pminmax_vec_in <- runif(10, 0, 100)
> dif_pminmax_vec_vec_l <- runif(10, 0, 50)
> dif_pminmax_vec_vec_u <- 50 + runif(10, 0, 50)
> actions[['dif_pminmax_vec']] <- g3_formula(
+ {
+ expect_dif_pminmax_vec_dbl <- dif_pminmax(dif_pminmax_vec_in, 30.0, 60.0, 1e5)
+ expect_dif_pminmax_vec_vec <- dif_pminmax(dif_pminmax_vec_in, dif_pminmax_vec_vec_l, dif_pminmax_vec_vec_u, 1e5)
+ },
+ dif_pminmax_vec_in = dif_pminmax_vec_in,
+ dif_pminmax_vec_vec_l = dif_pminmax_vec_vec_l,
+ dif_pminmax_vec_vec_u = dif_pminmax_vec_vec_u,
+ expect_dif_pminmax_vec_dbl = pmin(pmax(dif_pminmax_vec_in, 30.0), 60.0),
+ expect_dif_pminmax_vec_vec = pmin(pmax(dif_pminmax_vec_in, dif_pminmax_vec_vec_l), dif_pminmax_vec_vec_u),
+ end = NULL )
>
> ###############################################################################
>
> expecteds <- new.env(parent = emptyenv())
>
> for (i in seq_along(actions)) {
+ exp_names <- grep("^expect_", names(environment(actions[[i]])), value = TRUE)
+
+ # For each expect_ variable, move to expecteds
+ for (exp_name in exp_names) {
+ expecteds[[exp_name]] <- environment(actions[[i]])[[exp_name]]
+ environment(actions[[i]])[[exp_name]][] <- 0
+ }
+
+ # REPORT every expect_
+ reports <- lapply(exp_names, function (exp_name) {
+ substitute(REPORT(sym), list(sym = as.symbol(exp_name)))
+ })
+ # Convert list to { REPORT(x) ; REPORT(y); ... }
+ reports <- as.call(c(as.symbol("{"), reports))
+
+ # Top/tail actions with a comment of their name & reports
+ actions[[i]] <- gadget3:::f_substitute(quote({
+ comment(act_name)
+ act_f
+ reports
+ }), list(
+ act_name = names(actions)[[i]],
+ act_f = actions[[i]],
+ reports = reports))
+ }
>
> actions[['z']] <- g3_formula({
+ comment('done')
+ nll <- nll + g3_param('rv')
+ return(nll)
+ }, nll = 0.0)
> params$rv <- 0.0
>
> model_fn <- g3_to_r(actions)
> model_cpp <- g3_to_tmb(actions)
> result <- model_fn(params)
>
> # Compare everything we've been told to compare
> for (n in ls(expecteds)) {
+ tol <- sqrt(.Machine$double.eps)
+ if (!is.null(attr(expecteds[[n]], "tol"))) {
+ tol <- attr(expecteds[[n]], "tol")
+ attr(expecteds[[n]], "tol") <- NULL
+ }
+ ok(ut_cmp_equal(
+ attr(result, n),
+ expecteds[[n]],
+ tolerance = tol ), n)
+ }
ok - expect_dif_pmax_arr_dbl
ok - expect_dif_pmax_arr_int
ok - expect_dif_pmax_arr_typ
ok - expect_dif_pmax_arr_vec
ok - expect_dif_pmax_dearr_typ
ok - expect_dif_pmax_dervec_typ
ok - expect_dif_pmax_scl_dbl
ok - expect_dif_pmax_vec_dbl
ok - expect_dif_pmax_vec_int
ok - expect_dif_pmax_vec_typ
ok - expect_dif_pmax_vec_vec
ok - expect_dif_pmin_arr_dbl
ok - expect_dif_pmin_arr_int
ok - expect_dif_pmin_arr_typ
ok - expect_dif_pmin_arr_vec
ok - expect_dif_pmin_vec_dbl
ok - expect_dif_pmin_vec_int
ok - expect_dif_pmin_vec_typ
ok - expect_dif_pmin_vec_vec
not ok - expect_dif_pminmax_vec_dbl
# Test returned non-TRUE value:
# Mean relative difference: 1.577177e-07
# --- attr(result, n)
# +++ expecteds[[n]]
# num [1:10] 41.95813669 [-30.00000473-]{+30+} 60 60 37.03350888 60 60 30 30 58.40689812
ok - expect_dif_pminmax_vec_vec
>
> gadget3:::ut_tmb_r_compare2(model_fn, model_cpp, params)
# skip: not running TMB tests
NULL
>
> proc.time()
user system elapsed
0.93 0.10 1.59
1..21
# Looks like you failed 1 of 21 tests.
# 20: expect_dif_pminmax_vec_dbl
Flavor: r-oldrel-windows-x86_64
These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.