R Under development (unstable) (2026-09-06 r90498 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2026 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> if (requireNamespace("testthat", quietly = TRUE)) {
+   library(testthat)
+   library(adaptsimex)
+   test_check("adaptsimex")
+ }
Saving _problems/test-estimation-12.R
[ FAIL 1 | WARN 0 | SKIP 0 | PASS 6 ]

══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-estimation.R:12:3'): A-SIMEX reduces attenuation and recovers coefficients ──
Error in `attr(x, "formula") %||% {     form <- switch(mode(x), `NULL` = structure(list(), class = "formula"), character = eval(str2expression(x)), call = eval(x), stop("invalid formula"))     environment(form) <- env     form }`: invalid formula
Backtrace:
    ▆
 1. ├─stats::model.frame(formula = 0, drop.unused.levels = TRUE)
 2. └─stats::model.frame.default(formula = 0, drop.unused.levels = TRUE)
 3.   └─stats::as.formula(formula)
 4.     ├─stats::formula(object, env = baseenv())
 5.     └─stats:::formula.default(object, env = baseenv())
 6.       └─attr(x, "formula") %||% ...

[ FAIL 1 | WARN 0 | SKIP 0 | PASS 6 ]
Error:
! Test failures.
Execution halted