CRAN Package Check Results for Package bartCause

Last updated on 2026-07-29 10:56:05 CEST.

Check Details

Version: 1.0-10
Check: package dependencies
Result: ERROR Package required but not available: ‘dbarts’ Package suggested but not available for checking: ‘stan4bart’ See section ‘The DESCRIPTION file’ in the ‘Writing R Extensions’ manual. Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc

Version: 1.0-10
Check: package dependencies
Result: ERROR Package required but not available: ‘dbarts’ See section ‘The DESCRIPTION file’ in the ‘Writing R Extensions’ manual. Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-release-macos-x86_64

Version: 1.0-10
Check: examples
Result: ERROR Running examples in 'bartCause-Ex.R' failed The error most likely occurred in: > ### Name: bartc > ### Title: Causal Inference using Bayesian Additive Regression Trees > ### Aliases: bartc > ### Keywords: causal bart tmle > > ### ** Examples > > ## fit a simple linear model > n <- 100L > beta.z <- c(.75, -0.5, 0.25) > beta.y <- c(.5, 1.0, -1.5) > sigma <- 2 > > set.seed(725) > x <- matrix(rnorm(3 * n), n, 3) > tau <- rgamma(1L, 0.25 * 16 * rgamma(1L, 1 * 32, 32), 16) > > p.score <- pnorm(x %*% beta.z) > z <- rbinom(n, 1, p.score) > > mu.0 <- x %*% beta.y > mu.1 <- x %*% beta.y + tau > > y <- mu.0 * (1 - z) + mu.1 * z + rnorm(n, 0, sigma) > > # low parameters only for example > fit <- bartc(y, z, x, n.samples = 100L, n.burn = 15L, n.chains = 2L) fitting treatment model via method 'bart' Error in parse(text = deparse(RNGkind)[-1L]) : <text>:1:22: unexpected ')' 1: binom.kind = NULL) ^ Calls: bartc ... validObject -> anyStrings -> isTRUE -> validityMethod -> parse Execution halted Flavor: r-devel-windows-x86_64

Version: 1.0-10
Check: tests
Result: ERROR Running 'testthat.R' [7s] 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 Flavor: r-devel-windows-x86_64