Running 'testthat.R' [8s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > if (require(testthat, quietly = TRUE)) {
  +   require(bartCause)
  +   test_check("bartCause")
  + } else {
  +   cat("package 'testthat' not available; cannot run unit tests\n")
  + }
  Loading required package: bartCause
  Saving _problems/test-02-treatmentFit-28.R
  Saving _problems/test-02-treatmentFit-35.R
  Saving _problems/test-02-treatmentFit-42.R
  Saving _problems/test-02-treatmentFit-51.R
  Saving _problems/test-03-responseFit-9.R
  Saving _problems/test-03-responseFit-30.R
  Saving _problems/test-03-responseFit-65.R
  Saving _problems/test-04-bartc-22.R
  Saving _problems/test-04-bartc-45.R
  Saving _problems/test-04-bartc-66.R
  Saving _problems/test-04-bartc-86.R
  Saving _problems/test-04-bartc-95.R
  Saving _problems/test-04-bartc-104.R
  Saving _problems/test-04-bartc-132.R
  Saving _problems/test-04-bartc-163.R
  Saving _problems/test-04-bartc-204.R
  Saving _problems/test-04-bartc-215.R
  Saving _problems/test-04-bartc-231.R
  Saving _problems/test-05-generics-8.R
  Saving _problems/test-06-regression-9.R
  Saving _problems/test-06-regression-17.R
  Saving _problems/test-06-regression-25.R
  Saving _problems/test-07-commonSupport-10.R
  Saving _problems/test-07-commonSupport-34.R
  Saving _problems/test-08-predict-19.R
  Saving _problems/test-08-predict-41.R
  Saving _problems/test-08-predict-73.R
  Saving _problems/test-08-predict-99.R
  Saving _problems/test-08-predict-121.R
  Saving _problems/test-09-binary-8.R
  Saving _problems/test-10-rng-9.R
  Saving _problems/test-11-stan4bart-88.R
  Saving _problems/test-11-stan4bart-103.R
  [ FAIL 33 | WARN 0 | SKIP 7 | PASS 214 ]
  
  ══ Skipped tests (7) ═══════════════════════════════════════════════════════════
  • On CRAN (7): 'test-04-bartc.R:111:3', 'test-04-bartc.R:139:3',
    'test-04-bartc.R:185:3', 'test-04-bartc.R:236:3',
    'test-06-regression.R:34:3', 'test-11-stan4bart.R:14:3',
    'test-11-stan4bart.R:119:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-02-treatmentFit.R:28:3'): bart fit matches manual call ─────────
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartTreatmentFit(...) at test-02-treatmentFit.R:28:3
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::bart2(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-02-treatmentFit.R:35:3'): bart fit with fixef matches manual call ──
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartTreatmentFit(...) at test-02-treatmentFit.R:35:3
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::bart2(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-02-treatmentFit.R:42:3'): rbart_vi fit matches manual call ─────
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartTreatmentFit(...) at test-02-treatmentFit.R:42:3
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::rbart_vi(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-02-treatmentFit.R:51:3'): bart fit adds extra defaults ─────────
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartTreatmentFit(...) at test-02-treatmentFit.R:51:3
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::bart2(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-03-responseFit.R:7:3'): bart fit matches manual call ───────────
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartResponseFit(...) at test-03-responseFit.R:7:3
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::bart2(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-03-responseFit.R:30:3'): p.weight fits ─────────────────────────
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause::bartc(...)
    2.   ├─bartCause:::assignAll(eval(responseCall, envir = evalEnv))
    3.   └─base::eval(responseCall, envir = evalEnv)
    4.     └─base::eval(responseCall, envir = evalEnv)
    5.       ├─bartCause:::getPWeightResponseFit(...)
    6.       │ ├─bartCause:::assignAll(eval(bartCall, envir = callingEnv))
    7.       │ └─base::eval(bartCall, envir = callingEnv)
    8.       │   └─base::eval(bartCall, envir = callingEnv)
    9.       └─bartCause:::getBartResponseFit(...)
   10.         └─base::eval(bartCall, envir = evalEnv)
   11.           └─base::eval(bartCall, envir = evalEnv)
   12.             ├─dbarts::bart2(...)
   13.             │ └─base::eval(controlCall, envir = callingEnv)
   14.             │   └─base::eval(controlCall, envir = callingEnv)
   15.             └─dbarts::dbartsControl(...)
   16.               └─methods::new(...)
   17.                 ├─methods::initialize(value, ...)
   18.                 └─dbarts (local) initialize(value, ...)
   19.                   ├─methods::callNextMethod()
   20.                   └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   21.                     └─methods::validObject(.Object)
   22.                       ├─methods (local) anyStrings(validityMethod(object))
   23.                       │ └─base::isTRUE(x)
   24.                       └─dbarts (local) validityMethod(object)
   25.                         └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-03-responseFit.R:64:3'): rbart_vi fit matches manual call ──────
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartResponseFit(...) at test-03-responseFit.R:64:3
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::rbart_vi(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-04-bartc.R:20:3'): bartc matches manual fit ────────────────────
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartTreatmentFit(...)
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::bart2(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-04-bartc.R:44:3'): bartc returns valid ouput with one chain ────
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause::bartc(...) at test-04-bartc.R:44:3
    2.   ├─bartCause:::assignAll(eval(responseCall, envir = evalEnv))
    3.   └─base::eval(responseCall, envir = evalEnv)
    4.     └─base::eval(responseCall, envir = evalEnv)
    5.       └─bartCause:::getBartResponseFit(...)
    6.         └─base::eval(bartCall, envir = evalEnv)
    7.           └─base::eval(bartCall, envir = evalEnv)
    8.             ├─dbarts::bart2(...)
    9.             │ └─base::eval(controlCall, envir = callingEnv)
   10.             │   └─base::eval(controlCall, envir = callingEnv)
   11.             └─dbarts::dbartsControl(...)
   12.               └─methods::new(...)
   13.                 ├─methods::initialize(value, ...)
   14.                 └─dbarts (local) initialize(value, ...)
   15.                   ├─methods::callNextMethod()
   16.                   └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   17.                     └─methods::validObject(.Object)
   18.                       ├─methods (local) anyStrings(validityMethod(object))
   19.                       │ └─base::isTRUE(x)
   20.                       └─dbarts (local) validityMethod(object)
   21.                         └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-04-bartc.R:65:3'): bartc returns valid ouput with two chains ───
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause::bartc(...) at test-04-bartc.R:65:3
    2.   ├─bartCause:::assignAll(eval(responseCall, envir = evalEnv))
    3.   └─base::eval(responseCall, envir = evalEnv)
    4.     └─base::eval(responseCall, envir = evalEnv)
    5.       └─bartCause:::getBartResponseFit(...)
    6.         └─base::eval(bartCall, envir = evalEnv)
    7.           └─base::eval(bartCall, envir = evalEnv)
    8.             ├─dbarts::bart2(...)
    9.             │ └─base::eval(controlCall, envir = callingEnv)
   10.             │   └─base::eval(controlCall, envir = callingEnv)
   11.             └─dbarts::dbartsControl(...)
   12.               └─methods::new(...)
   13.                 ├─methods::initialize(value, ...)
   14.                 └─dbarts (local) initialize(value, ...)
   15.                   ├─methods::callNextMethod()
   16.                   └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   17.                     └─methods::validObject(.Object)
   18.                       ├─methods (local) anyStrings(validityMethod(object))
   19.                       │ └─base::isTRUE(x)
   20.                       └─dbarts (local) validityMethod(object)
   21.                         └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-04-bartc.R:84:3'): bartc runs with all treatment settings and one chain ──
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test-04-bartc.R:84:3
    2. │ └─testthat::quasi_label(enquo(object), label)
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─bartCause::bartc(...)
    5.   ├─bartCause:::assignAll(eval(responseCall, envir = evalEnv))
    6.   └─base::eval(responseCall, envir = evalEnv)
    7.     └─base::eval(responseCall, envir = evalEnv)
    8.       └─bartCause:::getBartResponseFit(...)
    9.         └─base::eval(bartCall, envir = evalEnv)
   10.           └─base::eval(bartCall, envir = evalEnv)
   11.             ├─dbarts::bart2(...)
   12.             │ └─base::eval(controlCall, envir = callingEnv)
   13.             │   └─base::eval(controlCall, envir = callingEnv)
   14.             └─dbarts::dbartsControl(...)
   15.               └─methods::new(...)
   16.                 ├─methods::initialize(value, ...)
   17.                 └─dbarts (local) initialize(value, ...)
   18.                   ├─methods::callNextMethod()
   19.                   └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   20.                     └─methods::validObject(.Object)
   21.                       ├─methods (local) anyStrings(validityMethod(object))
   22.                       │ └─base::isTRUE(x)
   23.                       └─dbarts (local) validityMethod(object)
   24.                         └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-04-bartc.R:93:3'): bartc runs with all treatment settings and two chains ──
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test-04-bartc.R:93:3
    2. │ └─testthat::quasi_label(enquo(object), label)
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─bartCause::bartc(...)
    5.   ├─bartCause:::assignAll(eval(responseCall, envir = evalEnv))
    6.   └─base::eval(responseCall, envir = evalEnv)
    7.     └─base::eval(responseCall, envir = evalEnv)
    8.       └─bartCause:::getBartResponseFit(...)
    9.         └─base::eval(bartCall, envir = evalEnv)
   10.           └─base::eval(bartCall, envir = evalEnv)
   11.             ├─dbarts::bart2(...)
   12.             │ └─base::eval(controlCall, envir = callingEnv)
   13.             │   └─base::eval(controlCall, envir = callingEnv)
   14.             └─dbarts::dbartsControl(...)
   15.               └─methods::new(...)
   16.                 ├─methods::initialize(value, ...)
   17.                 └─dbarts (local) initialize(value, ...)
   18.                   ├─methods::callNextMethod()
   19.                   └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   20.                     └─methods::validObject(.Object)
   21.                       ├─methods (local) anyStrings(validityMethod(object))
   22.                       │ └─base::isTRUE(x)
   23.                       └─dbarts (local) validityMethod(object)
   24.                         └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-04-bartc.R:102:3'): bartc runs with all response settings and one chain ──
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartTreatmentFit(...)
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::bart2(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-04-bartc.R:130:3'): bartc runs with all response settings and two chains ──
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartTreatmentFit(...)
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::bart2(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-04-bartc.R:160:3'): bartc runs with all response settings and group.by set ──
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartTreatmentFit(...)
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::rbart_vi(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-04-bartc.R:201:3'): bartc runs with missing data ───────────────
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartTreatmentFit(...)
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::rbart_vi(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-04-bartc.R:212:3'): bartc model argument overrides work correctly ──
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartTreatmentFit(...)
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::bart2(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-04-bartc.R:229:3'): bartc works with '.' as confounders ────────
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartTreatmentFit(...)
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::bart2(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-05-generics.R:6:1'): (code run outside of `test_that()`) ───────
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause::bartc(...) at test-05-generics.R:6:1
    2.   ├─bartCause:::assignAll(eval(responseCall, envir = evalEnv))
    3.   └─base::eval(responseCall, envir = evalEnv)
    4.     └─base::eval(responseCall, envir = evalEnv)
    5.       └─bartCause:::getBartResponseFit(...)
    6.         └─base::eval(bartCall, envir = evalEnv)
    7.           └─base::eval(bartCall, envir = evalEnv)
    8.             ├─dbarts::bart2(...)
    9.             │ └─base::eval(controlCall, envir = callingEnv)
   10.             │   └─base::eval(controlCall, envir = callingEnv)
   11.             └─dbarts::dbartsControl(...)
   12.               └─methods::new(...)
   13.                 ├─methods::initialize(value, ...)
   14.                 └─dbarts (local) initialize(value, ...)
   15.                   ├─methods::callNextMethod()
   16.                   └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   17.                     └─methods::validObject(.Object)
   18.                       ├─methods (local) anyStrings(validityMethod(object))
   19.                       │ └─base::isTRUE(x)
   20.                       └─dbarts (local) validityMethod(object)
   21.                         └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-06-regression.R:7:3'): naive bart matches old ──────────────────
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartResponseFit(...)
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::bart2(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-06-regression.R:15:3'): bart on p.score matches old ────────────
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartTreatmentFit(...)
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::bart2(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-06-regression.R:23:3'): bart w/p.weighting matches old ─────────
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartTreatmentFit(...)
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::bart2(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-07-commonSupport.R:7:3'): sd common support diagnostic works ───
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartTreatmentFit(...)
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::bart2(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-07-commonSupport.R:31:3'): chisq common support diagnostic works ──
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartTreatmentFit(...)
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::bart2(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-08-predict.R:16:3'): predict gives sane results ────────────────
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause::bartc(...) at test-08-predict.R:16:3
    2.   ├─bartCause:::assignAll(eval(responseCall, envir = evalEnv))
    3.   └─base::eval(responseCall, envir = evalEnv)
    4.     └─base::eval(responseCall, envir = evalEnv)
    5.       └─bartCause:::getBartResponseFit(...)
    6.         └─base::eval(bartCall, envir = evalEnv)
    7.           └─base::eval(bartCall, envir = evalEnv)
    8.             ├─dbarts::bart2(...)
    9.             │ └─base::eval(controlCall, envir = callingEnv)
   10.             │   └─base::eval(controlCall, envir = callingEnv)
   11.             └─dbarts::dbartsControl(...)
   12.               └─methods::new(...)
   13.                 ├─methods::initialize(value, ...)
   14.                 └─dbarts (local) initialize(value, ...)
   15.                   ├─methods::callNextMethod()
   16.                   └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   17.                     └─methods::validObject(.Object)
   18.                       ├─methods (local) anyStrings(validityMethod(object))
   19.                       │ └─base::isTRUE(x)
   20.                       └─dbarts (local) validityMethod(object)
   21.                         └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-08-predict.R:38:3'): predict results matches training data ─────
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartTreatmentFit(...)
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::bart2(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-08-predict.R:70:3'): predict works with grouped data, glm trt model ──
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause::bartc(...) at test-08-predict.R:70:3
    2.   ├─bartCause:::assignAll(eval(responseCall, envir = evalEnv))
    3.   └─base::eval(responseCall, envir = evalEnv)
    4.     └─base::eval(responseCall, envir = evalEnv)
    5.       └─bartCause:::getBartResponseFit(...)
    6.         └─base::eval(bartCall, envir = evalEnv)
    7.           └─base::eval(bartCall, envir = evalEnv)
    8.             ├─dbarts::bart2(...)
    9.             │ └─base::eval(controlCall, envir = callingEnv)
   10.             │   └─base::eval(controlCall, envir = callingEnv)
   11.             └─dbarts::dbartsControl(...)
   12.               └─methods::new(...)
   13.                 ├─methods::initialize(value, ...)
   14.                 └─dbarts (local) initialize(value, ...)
   15.                   ├─methods::callNextMethod()
   16.                   └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   17.                     └─methods::validObject(.Object)
   18.                       ├─methods (local) anyStrings(validityMethod(object))
   19.                       │ └─base::isTRUE(x)
   20.                       └─dbarts (local) validityMethod(object)
   21.                         └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-08-predict.R:94:3'): predict works with grouped data, glmer trt model ──
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. ├─base::suppressWarnings(...) at test-08-predict.R:94:3
    2. │ └─base::withCallingHandlers(...)
    3. └─bartCause::bartc(...)
    4.   ├─bartCause:::assignAll(eval(responseCall, envir = evalEnv))
    5.   └─base::eval(responseCall, envir = evalEnv)
    6.     └─base::eval(responseCall, envir = evalEnv)
    7.       └─bartCause:::getBartResponseFit(...)
    8.         └─base::eval(bartCall, envir = evalEnv)
    9.           └─base::eval(bartCall, envir = evalEnv)
   10.             ├─dbarts::bart2(...)
   11.             │ └─base::eval(controlCall, envir = callingEnv)
   12.             │   └─base::eval(controlCall, envir = callingEnv)
   13.             └─dbarts::dbartsControl(...)
   14.               └─methods::new(...)
   15.                 ├─methods::initialize(value, ...)
   16.                 └─dbarts (local) initialize(value, ...)
   17.                   ├─methods::callNextMethod()
   18.                   └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   19.                     └─methods::validObject(.Object)
   20.                       ├─methods (local) anyStrings(validityMethod(object))
   21.                       │ └─base::isTRUE(x)
   22.                       └─dbarts (local) validityMethod(object)
   23.                         └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-08-predict.R:118:3'): predict works with grouped data, bart trt model ──
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartTreatmentFit(...)
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::rbart_vi(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-09-binary.R:6:1'): (code run outside of `test_that()`) ─────────
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartTreatmentFit(...)
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::bart2(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-10-rng.R:6:3'): bartc with fixed seed is reproducible ──────────
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause:::getBartTreatmentFit(...)
    2.   └─base::eval(bartCall, envir = evalEnv)
    3.     └─base::eval(bartCall, envir = evalEnv)
    4.       ├─dbarts::bart2(...)
    5.       │ └─base::eval(controlCall, envir = callingEnv)
    6.       │   └─base::eval(controlCall, envir = callingEnv)
    7.       └─dbarts::dbartsControl(...)
    8.         └─methods::new(...)
    9.           ├─methods::initialize(value, ...)
   10.           └─dbarts (local) initialize(value, ...)
   11.             ├─methods::callNextMethod()
   12.             └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   13.               └─methods::validObject(.Object)
   14.                 ├─methods (local) anyStrings(validityMethod(object))
   15.                 │ └─base::isTRUE(x)
   16.                 └─dbarts (local) validityMethod(object)
   17.                   └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-11-stan4bart.R:82:3'): semiparametric model does not have constant treatment effect ──
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─bartCause::bartc(...) at test-11-stan4bart.R:82:3
    2.   ├─bartCause:::assignAll(eval(responseCall, envir = evalEnv))
    3.   └─base::eval(responseCall, envir = evalEnv)
    4.     └─base::eval(responseCall, envir = evalEnv)
    5.       ├─bartCause:::getBartResponseFit(...)
    6.       │ └─base::eval(stan4bartCall, envir = callingEnv)
    7.       │   └─base::eval(stan4bartCall, envir = callingEnv)
    8.       └─bartCause:::getStan4BartResponseFit(...)
    9.         └─base::eval(stan4bartCall, envir = evalEnv)
   10.           └─base::eval(stan4bartCall, envir = evalEnv)
   11.             └─stan4bart::stan4bart(...)
   12.               └─stan4bart:::stan4bart_fit(...)
   13.                 ├─base::eval(control_call)
   14.                 │ └─base::eval(control_call)
   15.                 └─dbarts::dbartsControl(...)
   16.                   └─methods::new(...)
   17.                     ├─methods::initialize(value, ...)
   18.                     └─dbarts (local) initialize(value, ...)
   19.                       ├─methods::callNextMethod()
   20.                       └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   21.                         └─methods::validObject(.Object)
   22.                           ├─methods (local) anyStrings(validityMethod(object))
   23.                           │ └─base::isTRUE(x)
   24.                           └─dbarts (local) validityMethod(object)
   25.                             └─base::parse(text = deparse(RNGkind)[-1L])
  ── Error ('test-11-stan4bart.R:97:3'): semiparametric predict works ────────────
  Error in `parse(text = deparse(RNGkind)[-1L])`: <text>:1:22: unexpected ')'
  1:     binom.kind = NULL)
                           ^
  Backtrace:
       ▆
    1. └─stan4bart::stan4bart(...)
    2.   └─stan4bart:::stan4bart_fit(...)
    3.     ├─base::eval(control_call)
    4.     │ └─base::eval(control_call)
    5.     └─dbarts::dbartsControl(...)
    6.       └─methods::new(...)
    7.         ├─methods::initialize(value, ...)
    8.         └─dbarts (local) initialize(value, ...)
    9.           ├─methods::callNextMethod()
   10.           └─methods (local) .nextMethod(.Object = .Object, ... = ...)
   11.             └─methods::validObject(.Object)
   12.               ├─methods (local) anyStrings(validityMethod(object))
   13.               │ └─base::isTRUE(x)
   14.               └─dbarts (local) validityMethod(object)
   15.                 └─base::parse(text = deparse(RNGkind)[-1L])
  
  [ FAIL 33 | WARN 0 | SKIP 7 | PASS 214 ]
  Error:
  ! Test failures.
  Execution halted