Running ‘testthat.R’ [24s/33s]
  Running ‘xBalanceTests2.R’ [2s/3s]
  Comparing ‘xBalanceTests2.Rout’ to ‘xBalanceTests2.Rout.save’ ... OK
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(RItools)
  Loading required package: ggplot2
  > 
  > test_check("RItools")
  [ FAIL 259 | WARN 20 | SKIP 0 | PASS 727 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test.Design.R:205:5'): All-Xes missingness |-> NotMissing col '_any Xs recorded_' ──
  simple7@Sweights$strat$sweights not equivalent to (2:1)/3.
  target is NULL, current is numeric
  ── Failure ('test.Design.R:244:3'): Creating DesignOptions objects ─────────────
  `RItools:::makeDesigns(...)` did not throw an error.
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_error(...) at test.Design.R:244:3
  ── Failure ('test.Design.R:245:3'): Creating DesignOptions objects ─────────────
  `RItools:::makeDesigns(...)` did not throw an error.
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_error(...) at test.Design.R:245:3
  ── Failure ('test.Design.R:260:3'): Creating DesignOptions objects ─────────────
  dim(clustStrata@StrataFrame)[2] not equal to 2.
  1/1 mismatches
  [1] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(dim(clustStrata@StrataFrame)[2], 2) at test.Design.R:260:3
  ── Failure ('test.Design.R:266:3'): Creating DesignOptions objects ─────────────
  ...[] not equal to 1.
  1/1 mismatches
  [1] 0 - 1 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(...) at test.Design.R:266:3
  ── Failure ('test.Design.R:244:3'): Creating DesignOptions objects ─────────────
  `RItools:::makeDesigns(...)` did not throw an error.
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_error(...) at test.Design.R:244:3
  ── Failure ('test.Design.R:245:3'): Creating DesignOptions objects ─────────────
  `RItools:::makeDesigns(...)` did not throw an error.
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_error(...) at test.Design.R:245:3
  ── Failure ('test.Design.R:260:3'): Creating DesignOptions objects ─────────────
  dim(clustStrata@StrataFrame)[2] not equal to 2.
  1/1 mismatches
  [1] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(dim(clustStrata@StrataFrame)[2], 2) at test.Design.R:260:3
  ── Failure ('test.Design.R:266:3'): Creating DesignOptions objects ─────────────
  ...[] not equal to 1.
  1/1 mismatches
  [1] 0 - 1 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(...) at test.Design.R:266:3
  ── Failure ('test.Design.R:244:3'): Creating DesignOptions objects ─────────────
  `RItools:::makeDesigns(...)` did not throw an error.
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_error(...) at test.Design.R:244:3
  ── Failure ('test.Design.R:245:3'): Creating DesignOptions objects ─────────────
  `RItools:::makeDesigns(...)` did not throw an error.
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_error(...) at test.Design.R:245:3
  ── Failure ('test.Design.R:260:3'): Creating DesignOptions objects ─────────────
  dim(clustStrata@StrataFrame)[2] not equal to 2.
  1/1 mismatches
  [1] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(dim(clustStrata@StrataFrame)[2], 2) at test.Design.R:260:3
  ── Failure ('test.Design.R:266:3'): Creating DesignOptions objects ─────────────
  ...[] not equal to 1.
  1/1 mismatches
  [1] 0 - 1 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(...) at test.Design.R:266:3
  ── Failure ('test.Design.R:244:3'): Creating DesignOptions objects ─────────────
  `RItools:::makeDesigns(...)` did not throw an error.
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_error(...) at test.Design.R:244:3
  ── Failure ('test.Design.R:245:3'): Creating DesignOptions objects ─────────────
  `RItools:::makeDesigns(...)` did not throw an error.
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_error(...) at test.Design.R:245:3
  ── Failure ('test.Design.R:260:3'): Creating DesignOptions objects ─────────────
  dim(clustStrata@StrataFrame)[2] not equal to 2.
  1/1 mismatches
  [1] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(dim(clustStrata@StrataFrame)[2], 2) at test.Design.R:260:3
  ── Failure ('test.Design.R:266:3'): Creating DesignOptions objects ─────────────
  ...[] not equal to 1.
  1/1 mismatches
  [1] 0 - 1 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(...) at test.Design.R:266:3
  ── Failure ('test.Design.R:244:3'): Creating DesignOptions objects ─────────────
  `RItools:::makeDesigns(...)` did not throw an error.
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_error(...) at test.Design.R:244:3
  ── Failure ('test.Design.R:245:3'): Creating DesignOptions objects ─────────────
  `RItools:::makeDesigns(...)` did not throw an error.
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_error(...) at test.Design.R:245:3
  ── Failure ('test.Design.R:260:3'): Creating DesignOptions objects ─────────────
  dim(clustStrata@StrataFrame)[2] not equal to 2.
  1/1 mismatches
  [1] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(dim(clustStrata@StrataFrame)[2], 2) at test.Design.R:260:3
  ── Failure ('test.Design.R:266:3'): Creating DesignOptions objects ─────────────
  ...[] not equal to 1.
  1/1 mismatches
  [1] 0 - 1 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(...) at test.Design.R:266:3
  ── Failure ('test.Design.R:244:3'): Creating DesignOptions objects ─────────────
  `RItools:::makeDesigns(...)` did not throw an error.
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_error(...) at test.Design.R:244:3
  ── Failure ('test.Design.R:245:3'): Creating DesignOptions objects ─────────────
  `RItools:::makeDesigns(...)` did not throw an error.
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_error(...) at test.Design.R:245:3
  ── Failure ('test.Design.R:260:3'): Creating DesignOptions objects ─────────────
  dim(clustStrata@StrataFrame)[2] not equal to 2.
  1/1 mismatches
  [1] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(dim(clustStrata@StrataFrame)[2], 2) at test.Design.R:260:3
  ── Failure ('test.Design.R:266:3'): Creating DesignOptions objects ─────────────
  ...[] not equal to 1.
  1/1 mismatches
  [1] 0 - 1 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(...) at test.Design.R:266:3
  ── Failure ('test.Design.R:244:3'): Creating DesignOptions objects ─────────────
  `RItools:::makeDesigns(...)` did not throw an error.
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_error(...) at test.Design.R:244:3
  ── Failure ('test.Design.R:245:3'): Creating DesignOptions objects ─────────────
  `RItools:::makeDesigns(...)` did not throw an error.
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_error(...) at test.Design.R:245:3
  ── Failure ('test.Design.R:260:3'): Creating DesignOptions objects ─────────────
  dim(clustStrata@StrataFrame)[2] not equal to 2.
  1/1 mismatches
  [1] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(dim(clustStrata@StrataFrame)[2], 2) at test.Design.R:260:3
  ── Failure ('test.Design.R:266:3'): Creating DesignOptions objects ─────────────
  ...[] not equal to 1.
  1/1 mismatches
  [1] 0 - 1 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(...) at test.Design.R:266:3
  ── Failure ('test.Design.R:244:3'): Creating DesignOptions objects ─────────────
  `RItools:::makeDesigns(...)` did not throw an error.
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_error(...) at test.Design.R:244:3
  ── Failure ('test.Design.R:245:3'): Creating DesignOptions objects ─────────────
  `RItools:::makeDesigns(...)` did not throw an error.
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_error(...) at test.Design.R:245:3
  ── Failure ('test.Design.R:260:3'): Creating DesignOptions objects ─────────────
  dim(clustStrata@StrataFrame)[2] not equal to 2.
  1/1 mismatches
  [1] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(dim(clustStrata@StrataFrame)[2], 2) at test.Design.R:260:3
  ── Failure ('test.Design.R:266:3'): Creating DesignOptions objects ─────────────
  ...[] not equal to 1.
  1/1 mismatches
  [1] 0 - 1 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(...) at test.Design.R:266:3
  ── Failure ('test.Design.R:244:3'): Creating DesignOptions objects ─────────────
  `RItools:::makeDesigns(...)` did not throw an error.
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_error(...) at test.Design.R:244:3
  ── Failure ('test.Design.R:245:3'): Creating DesignOptions objects ─────────────
  `RItools:::makeDesigns(...)` did not throw an error.
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_error(...) at test.Design.R:245:3
  ── Failure ('test.Design.R:260:3'): Creating DesignOptions objects ─────────────
  dim(clustStrata@StrataFrame)[2] not equal to 2.
  1/1 mismatches
  [1] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(dim(clustStrata@StrataFrame)[2], 2) at test.Design.R:260:3
  ── Failure ('test.Design.R:266:3'): Creating DesignOptions objects ─────────────
  ...[] not equal to 1.
  1/1 mismatches
  [1] 0 - 1 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(...) at test.Design.R:266:3
  ── Failure ('test.Design.R:244:3'): Creating DesignOptions objects ─────────────
  `RItools:::makeDesigns(...)` did not throw an error.
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_error(...) at test.Design.R:244:3
  ── Failure ('test.Design.R:245:3'): Creating DesignOptions objects ─────────────
  `RItools:::makeDesigns(...)` did not throw an error.
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_error(...) at test.Design.R:245:3
  ── Failure ('test.Design.R:260:3'): Creating DesignOptions objects ─────────────
  dim(clustStrata@StrataFrame)[2] not equal to 2.
  1/1 mismatches
  [1] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(dim(clustStrata@StrataFrame)[2], 2) at test.Design.R:260:3
  ── Failure ('test.Design.R:266:3'): Creating DesignOptions objects ─────────────
  ...[] not equal to 1.
  1/1 mismatches
  [1] 0 - 1 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:232:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(...) at test.Design.R:266:3
  ── Failure ('test.Design.R:358:3'): DesignOptions to descriptive statistics ────
  dim(descriptives) not equal to c(5, 5, 2).
  1/3 mismatches
  [3] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:342:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(dim(descriptives), c(5, 5, 2)) at test.Design.R:358:3
  ── Error ('test.Design.R:365:3'): DesignOptions to descriptive statistics ──────
  <subscriptOutOfBoundsError/error/condition>
  Error in `descriptives[, , 2]`: subscript out of bounds
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:342:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         ├─testthat::expect_false(...) at test.Design.R:365:3
   6.         │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   7.         │   └─rlang::eval_bare(expr, quo_get_env(quo))
   8.         └─base::identical(descriptives[, , 1], descriptives[, , 2])
  ── Error ('test.Design.R:446:3'): Issue 36: Descriptives with NAs, appropriate weighting ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `descriptives.all["x", "Treatment", "s"]`: subscript out of bounds
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:428:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(...) at test.Design.R:446:3
   6.           └─testthat::quasi_label(enquo(object), label, arg = "object")
   7.             └─rlang::eval_bare(expr, quo_get_env(quo))
  ── Failure ('test.Design.R:495:3'): Aggegating designs by clusters ─────────────
  dim(aggDesign@Covariates) not equal to c(100, 4).
  1/2 mismatches
  [1] 600 - 100 == 500
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:475:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(dim(aggDesign@Covariates), c(100, 4)) at test.Design.R:495:3
  ── Error ('test.Design.R:498:3'): Aggegating designs by clusters ───────────────
  Error in `colMeans(design@Covariates[design@Cluster == 1, ])`: 'x' must be an array of at least two dimensions
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:475:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         ├─testthat::expect_equal(...) at test.Design.R:498:3
   6.         │ └─testthat::quasi_label(enquo(expected), expected.label, arg = "expected")
   7.         │   └─rlang::eval_bare(expr, quo_get_env(quo))
   8.         └─base::colMeans(design@Covariates[design@Cluster == 1, ])
  ── Failure ('test.Design.R:525:5'): aggregateDesigns treats NA covariates as 0's ──
  aggDesign@Covariates[, "x"] not equivalent to c(0, 0, 1, 1).
  Lengths differ: 5 is not 4
  ── Failure ('test.Design.R:527:3'): aggregateDesigns treats NA covariates as 0's ──
  aggDesign@NotMissing[, nm.column.for.x] not equal to c(0, 0, 1, 1).
  Modes: logical, numeric
  Lengths: 5, 4
  target is logical, current is numeric
  ── Failure ('test.Design.R:555:3'): Aggregation of unit weights to cluster level ──
  `aggDesign.tall` not equal to `aggDesign.short`.
  Attributes: < Component "Cluster": Lengths: 600, 500 >
  Attributes: < Component "Cluster": Attributes: < Component "levels": Lengths (600, 500) differ (string compare on first 500) > >
  Attributes: < Component "Cluster": Lengths (600, 500) differ (string compare on first 500) >
  Attributes: < Component "Covariates": Attributes: < Component "dim": Mean relative difference: 0.1666667 > >
  Attributes: < Component "Covariates": Numeric: lengths (2400, 2000) differ >
  Attributes: < Component "NotMissing": Attributes: < Component "dim": Mean relative difference: 0.1666667 > >
  Attributes: < Component "NotMissing": Lengths (600, 500) differ (comparison on first 500 components) >
  Attributes: < Component "StrataFrame": Attributes: < Component "row.names": Numeric: lengths (600, 500) differ > >
  Attributes: < Component "StrataFrame": Component "--": Lengths: 600, 500 >
  ...
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:533:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(aggDesign.tall, aggDesign.short) at test.Design.R:555:3
  ── Failure ('test.Design.R:555:3'): Aggregation of unit weights to cluster level ──
  `aggDesign.tall` not equal to `aggDesign.short`.
  Attributes: < Component "Cluster": Lengths: 600, 500 >
  Attributes: < Component "Cluster": Attributes: < Component "levels": Lengths (600, 500) differ (string compare on first 500) > >
  Attributes: < Component "Cluster": Lengths (600, 500) differ (string compare on first 500) >
  Attributes: < Component "Covariates": Attributes: < Component "dim": Mean relative difference: 0.1666667 > >
  Attributes: < Component "Covariates": Numeric: lengths (2400, 2000) differ >
  Attributes: < Component "NotMissing": Attributes: < Component "dim": Mean relative difference: 0.1666667 > >
  Attributes: < Component "NotMissing": Lengths (600, 500) differ (comparison on first 500 components) >
  Attributes: < Component "StrataFrame": Attributes: < Component "row.names": Numeric: lengths (600, 500) differ > >
  Attributes: < Component "StrataFrame": Component "--": Lengths: 600, 500 >
  ...
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:533:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(aggDesign.tall, aggDesign.short) at test.Design.R:555:3
  ── Failure ('test.Design.R:555:3'): Aggregation of unit weights to cluster level ──
  `aggDesign.tall` not equal to `aggDesign.short`.
  Attributes: < Component "Cluster": Lengths: 600, 500 >
  Attributes: < Component "Cluster": Attributes: < Component "levels": Lengths (600, 500) differ (string compare on first 500) > >
  Attributes: < Component "Cluster": Lengths (600, 500) differ (string compare on first 500) >
  Attributes: < Component "Covariates": Attributes: < Component "dim": Mean relative difference: 0.1666667 > >
  Attributes: < Component "Covariates": Numeric: lengths (2400, 2000) differ >
  Attributes: < Component "NotMissing": Attributes: < Component "dim": Mean relative difference: 0.1666667 > >
  Attributes: < Component "NotMissing": Lengths (600, 500) differ (comparison on first 500 components) >
  Attributes: < Component "StrataFrame": Attributes: < Component "row.names": Numeric: lengths (600, 500) differ > >
  Attributes: < Component "StrataFrame": Component "--": Lengths: 600, 500 >
  ...
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:533:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(aggDesign.tall, aggDesign.short) at test.Design.R:555:3
  ── Failure ('test.Design.R:555:3'): Aggregation of unit weights to cluster level ──
  `aggDesign.tall` not equal to `aggDesign.short`.
  Attributes: < Component "Cluster": Lengths: 600, 500 >
  Attributes: < Component "Cluster": Attributes: < Component "levels": Lengths (600, 500) differ (string compare on first 500) > >
  Attributes: < Component "Cluster": Lengths (600, 500) differ (string compare on first 500) >
  Attributes: < Component "Covariates": Attributes: < Component "dim": Mean relative difference: 0.1666667 > >
  Attributes: < Component "Covariates": Numeric: lengths (2400, 2000) differ >
  Attributes: < Component "NotMissing": Attributes: < Component "dim": Mean relative difference: 0.1666667 > >
  Attributes: < Component "NotMissing": Lengths (600, 500) differ (comparison on first 500 components) >
  Attributes: < Component "StrataFrame": Attributes: < Component "row.names": Numeric: lengths (600, 500) differ > >
  Attributes: < Component "StrataFrame": Component "--": Lengths: 600, 500 >
  ...
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:533:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(aggDesign.tall, aggDesign.short) at test.Design.R:555:3
  ── Failure ('test.Design.R:555:3'): Aggregation of unit weights to cluster level ──
  `aggDesign.tall` not equal to `aggDesign.short`.
  Attributes: < Component "Cluster": Lengths: 600, 500 >
  Attributes: < Component "Cluster": Attributes: < Component "levels": Lengths (600, 500) differ (string compare on first 500) > >
  Attributes: < Component "Cluster": Lengths (600, 500) differ (string compare on first 500) >
  Attributes: < Component "Covariates": Attributes: < Component "dim": Mean relative difference: 0.1666667 > >
  Attributes: < Component "Covariates": Numeric: lengths (2400, 2000) differ >
  Attributes: < Component "NotMissing": Attributes: < Component "dim": Mean relative difference: 0.1666667 > >
  Attributes: < Component "NotMissing": Lengths (600, 500) differ (comparison on first 500 components) >
  Attributes: < Component "StrataFrame": Attributes: < Component "row.names": Numeric: lengths (600, 500) differ > >
  Attributes: < Component "StrataFrame": Component "--": Lengths: 600, 500 >
  ...
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:533:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(aggDesign.tall, aggDesign.short) at test.Design.R:555:3
  ── Failure ('test.Design.R:555:3'): Aggregation of unit weights to cluster level ──
  `aggDesign.tall` not equal to `aggDesign.short`.
  Attributes: < Component "Cluster": Lengths: 600, 500 >
  Attributes: < Component "Cluster": Attributes: < Component "levels": Lengths (600, 500) differ (string compare on first 500) > >
  Attributes: < Component "Cluster": Lengths (600, 500) differ (string compare on first 500) >
  Attributes: < Component "Covariates": Attributes: < Component "dim": Mean relative difference: 0.1666667 > >
  Attributes: < Component "Covariates": Numeric: lengths (2400, 2000) differ >
  Attributes: < Component "NotMissing": Attributes: < Component "dim": Mean relative difference: 0.1666667 > >
  Attributes: < Component "NotMissing": Lengths (600, 500) differ (comparison on first 500 components) >
  Attributes: < Component "StrataFrame": Attributes: < Component "row.names": Numeric: lengths (600, 500) differ > >
  Attributes: < Component "StrataFrame": Component "--": Lengths: 600, 500 >
  ...
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:533:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(aggDesign.tall, aggDesign.short) at test.Design.R:555:3
  ── Failure ('test.Design.R:555:3'): Aggregation of unit weights to cluster level ──
  `aggDesign.tall` not equal to `aggDesign.short`.
  Attributes: < Component "Cluster": Lengths: 600, 500 >
  Attributes: < Component "Cluster": Attributes: < Component "levels": Lengths (600, 500) differ (string compare on first 500) > >
  Attributes: < Component "Cluster": Lengths (600, 500) differ (string compare on first 500) >
  Attributes: < Component "Covariates": Attributes: < Component "dim": Mean relative difference: 0.1666667 > >
  Attributes: < Component "Covariates": Numeric: lengths (2400, 2000) differ >
  Attributes: < Component "NotMissing": Attributes: < Component "dim": Mean relative difference: 0.1666667 > >
  Attributes: < Component "NotMissing": Lengths (600, 500) differ (comparison on first 500 components) >
  Attributes: < Component "StrataFrame": Attributes: < Component "row.names": Numeric: lengths (600, 500) differ > >
  Attributes: < Component "StrataFrame": Component "--": Lengths: 600, 500 >
  ...
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:533:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(aggDesign.tall, aggDesign.short) at test.Design.R:555:3
  ── Failure ('test.Design.R:555:3'): Aggregation of unit weights to cluster level ──
  `aggDesign.tall` not equal to `aggDesign.short`.
  Attributes: < Component "Cluster": Lengths: 600, 500 >
  Attributes: < Component "Cluster": Attributes: < Component "levels": Lengths (600, 500) differ (string compare on first 500) > >
  Attributes: < Component "Cluster": Lengths (600, 500) differ (string compare on first 500) >
  Attributes: < Component "Covariates": Attributes: < Component "dim": Mean relative difference: 0.1666667 > >
  Attributes: < Component "Covariates": Numeric: lengths (2400, 2000) differ >
  Attributes: < Component "NotMissing": Attributes: < Component "dim": Mean relative difference: 0.1666667 > >
  Attributes: < Component "NotMissing": Lengths (600, 500) differ (comparison on first 500 components) >
  Attributes: < Component "StrataFrame": Attributes: < Component "row.names": Numeric: lengths (600, 500) differ > >
  Attributes: < Component "StrataFrame": Component "--": Lengths: 600, 500 >
  ...
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:533:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(aggDesign.tall, aggDesign.short) at test.Design.R:555:3
  ── Failure ('test.Design.R:555:3'): Aggregation of unit weights to cluster level ──
  `aggDesign.tall` not equal to `aggDesign.short`.
  Attributes: < Component "Cluster": Lengths: 600, 500 >
  Attributes: < Component "Cluster": Attributes: < Component "levels": Lengths (600, 500) differ (string compare on first 500) > >
  Attributes: < Component "Cluster": Lengths (600, 500) differ (string compare on first 500) >
  Attributes: < Component "Covariates": Attributes: < Component "dim": Mean relative difference: 0.1666667 > >
  Attributes: < Component "Covariates": Numeric: lengths (2400, 2000) differ >
  Attributes: < Component "NotMissing": Attributes: < Component "dim": Mean relative difference: 0.1666667 > >
  Attributes: < Component "NotMissing": Lengths (600, 500) differ (comparison on first 500 components) >
  Attributes: < Component "StrataFrame": Attributes: < Component "row.names": Numeric: lengths (600, 500) differ > >
  Attributes: < Component "StrataFrame": Component "--": Lengths: 600, 500 >
  ...
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:533:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(aggDesign.tall, aggDesign.short) at test.Design.R:555:3
  ── Failure ('test.Design.R:555:3'): Aggregation of unit weights to cluster level ──
  `aggDesign.tall` not equal to `aggDesign.short`.
  Attributes: < Component "Cluster": Lengths: 600, 500 >
  Attributes: < Component "Cluster": Attributes: < Component "levels": Lengths (600, 500) differ (string compare on first 500) > >
  Attributes: < Component "Cluster": Lengths (600, 500) differ (string compare on first 500) >
  Attributes: < Component "Covariates": Attributes: < Component "dim": Mean relative difference: 0.1666667 > >
  Attributes: < Component "Covariates": Numeric: lengths (2400, 2000) differ >
  Attributes: < Component "NotMissing": Attributes: < Component "dim": Mean relative difference: 0.1666667 > >
  Attributes: < Component "NotMissing": Lengths (600, 500) differ (comparison on first 500 components) >
  Attributes: < Component "StrataFrame": Attributes: < Component "row.names": Numeric: lengths (600, 500) differ > >
  Attributes: < Component "StrataFrame": Component "--": Lengths: 600, 500 >
  ...
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:533:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(aggDesign.tall, aggDesign.short) at test.Design.R:555:3
  ── Failure ('test.Design.R:642:5'): alignDesigns, designToDescriptives output alignment ──
  colnames(simple2@StrataFrame) not equal to c("strat", "--").
  Lengths differ: 1 is not 2
  ── Failure ('test.Design.R:646:5'): alignDesigns, designToDescriptives output alignment ──
  setequal(names(simple2@Sweights), c("strat", "--")) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Error ('test.Design.R:650:5'): alignDesigns, designToDescriptives output alignment ──
  Error in ``[.data.frame`(design@StrataFrame, , a_stratification)`: undefined columns selected
  Backtrace:
      ▆
   1. └─RItools:::alignDesignsByStrata("strat", simple2) at test.Design.R:650:5
   2.   ├─design@StrataFrame[, a_stratification]
   3.   └─base::`[.data.frame`(design@StrataFrame, , a_stratification)
  ── Error ('test.Design.R:674:5'): alignDesigns centers covars by stratum ───────
  Error in ``[.data.frame`(design@StrataFrame, , a_stratification)`: undefined columns selected
  Backtrace:
      ▆
   1. └─RItools:::alignDesignsByStrata("strat", simple0) at test.Design.R:674:5
   2.   ├─design@StrataFrame[, a_stratification]
   3.   └─base::`[.data.frame`(design@StrataFrame, , a_stratification)
  ── Error ('test.Design.R:737:5'): scale() method wrapping to alignDesignsByStrata() ──
  Error in ``[.data.frame`(design@StrataFrame, , a_stratification)`: undefined columns selected
  Backtrace:
      ▆
   1. └─RItools:::alignDesignsByStrata("strat", simple2b, post.align.transform = NULL) at test.Design.R:737:5
   2.   ├─design@StrataFrame[, a_stratification]
   3.   └─base::`[.data.frame`(design@StrataFrame, , a_stratification)
  ── Failure ('test.Design.R:811:3'): Issue #89: Proper strata weights ───────────
  as.vector(dw.wts$m$sweights) not equivalent to rep(1, nlevels(survival::strata(xy.wts$m)))/nlevels(survival::strata(xy.wts$m)).
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:764:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:811:3
  ── Failure ('test.Design.R:819:3'): Issue #89: Proper strata weights ───────────
  dw.wts2$m$sweights not equivalent to clus_mean_weights/sum(clus_mean_weights).
  target is NULL, current is array
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:764:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(dw.wts2$m$sweights, clus_mean_weights/sum(clus_mean_weights)) at test.Design.R:819:3
  ── Failure ('test.Design.R:811:3'): Issue #89: Proper strata weights ───────────
  as.vector(dw.wts$m$sweights) not equivalent to rep(1, nlevels(survival::strata(xy.wts$m)))/nlevels(survival::strata(xy.wts$m)).
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:764:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:811:3
  ── Failure ('test.Design.R:819:3'): Issue #89: Proper strata weights ───────────
  dw.wts2$m$sweights not equivalent to clus_mean_weights/sum(clus_mean_weights).
  target is NULL, current is array
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:764:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(dw.wts2$m$sweights, clus_mean_weights/sum(clus_mean_weights)) at test.Design.R:819:3
  ── Failure ('test.Design.R:811:3'): Issue #89: Proper strata weights ───────────
  as.vector(dw.wts$m$sweights) not equivalent to rep(1, nlevels(survival::strata(xy.wts$m)))/nlevels(survival::strata(xy.wts$m)).
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:764:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:811:3
  ── Failure ('test.Design.R:819:3'): Issue #89: Proper strata weights ───────────
  dw.wts2$m$sweights not equivalent to clus_mean_weights/sum(clus_mean_weights).
  target is NULL, current is array
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:764:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(dw.wts2$m$sweights, clus_mean_weights/sum(clus_mean_weights)) at test.Design.R:819:3
  ── Failure ('test.Design.R:811:3'): Issue #89: Proper strata weights ───────────
  as.vector(dw.wts$m$sweights) not equivalent to rep(1, nlevels(survival::strata(xy.wts$m)))/nlevels(survival::strata(xy.wts$m)).
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:764:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:811:3
  ── Failure ('test.Design.R:819:3'): Issue #89: Proper strata weights ───────────
  dw.wts2$m$sweights not equivalent to clus_mean_weights/sum(clus_mean_weights).
  target is NULL, current is array
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:764:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(dw.wts2$m$sweights, clus_mean_weights/sum(clus_mean_weights)) at test.Design.R:819:3
  ── Failure ('test.Design.R:811:3'): Issue #89: Proper strata weights ───────────
  as.vector(dw.wts$m$sweights) not equivalent to rep(1, nlevels(survival::strata(xy.wts$m)))/nlevels(survival::strata(xy.wts$m)).
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:764:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:811:3
  ── Failure ('test.Design.R:819:3'): Issue #89: Proper strata weights ───────────
  dw.wts2$m$sweights not equivalent to clus_mean_weights/sum(clus_mean_weights).
  target is NULL, current is array
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:764:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(dw.wts2$m$sweights, clus_mean_weights/sum(clus_mean_weights)) at test.Design.R:819:3
  ── Failure ('test.Design.R:811:3'): Issue #89: Proper strata weights ───────────
  as.vector(dw.wts$m$sweights) not equivalent to rep(1, nlevels(survival::strata(xy.wts$m)))/nlevels(survival::strata(xy.wts$m)).
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:764:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:811:3
  ── Failure ('test.Design.R:819:3'): Issue #89: Proper strata weights ───────────
  dw.wts2$m$sweights not equivalent to clus_mean_weights/sum(clus_mean_weights).
  target is NULL, current is array
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:764:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(dw.wts2$m$sweights, clus_mean_weights/sum(clus_mean_weights)) at test.Design.R:819:3
  ── Failure ('test.Design.R:811:3'): Issue #89: Proper strata weights ───────────
  as.vector(dw.wts$m$sweights) not equivalent to rep(1, nlevels(survival::strata(xy.wts$m)))/nlevels(survival::strata(xy.wts$m)).
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:764:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:811:3
  ── Failure ('test.Design.R:819:3'): Issue #89: Proper strata weights ───────────
  dw.wts2$m$sweights not equivalent to clus_mean_weights/sum(clus_mean_weights).
  target is NULL, current is array
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:764:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(dw.wts2$m$sweights, clus_mean_weights/sum(clus_mean_weights)) at test.Design.R:819:3
  ── Failure ('test.Design.R:811:3'): Issue #89: Proper strata weights ───────────
  as.vector(dw.wts$m$sweights) not equivalent to rep(1, nlevels(survival::strata(xy.wts$m)))/nlevels(survival::strata(xy.wts$m)).
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:764:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:811:3
  ── Failure ('test.Design.R:819:3'): Issue #89: Proper strata weights ───────────
  dw.wts2$m$sweights not equivalent to clus_mean_weights/sum(clus_mean_weights).
  target is NULL, current is array
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:764:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(dw.wts2$m$sweights, clus_mean_weights/sum(clus_mean_weights)) at test.Design.R:819:3
  ── Failure ('test.Design.R:811:3'): Issue #89: Proper strata weights ───────────
  as.vector(dw.wts$m$sweights) not equivalent to rep(1, nlevels(survival::strata(xy.wts$m)))/nlevels(survival::strata(xy.wts$m)).
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:764:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:811:3
  ── Failure ('test.Design.R:819:3'): Issue #89: Proper strata weights ───────────
  dw.wts2$m$sweights not equivalent to clus_mean_weights/sum(clus_mean_weights).
  target is NULL, current is array
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:764:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(dw.wts2$m$sweights, clus_mean_weights/sum(clus_mean_weights)) at test.Design.R:819:3
  ── Failure ('test.Design.R:811:3'): Issue #89: Proper strata weights ───────────
  as.vector(dw.wts$m$sweights) not equivalent to rep(1, nlevels(survival::strata(xy.wts$m)))/nlevels(survival::strata(xy.wts$m)).
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:764:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:811:3
  ── Failure ('test.Design.R:819:3'): Issue #89: Proper strata weights ───────────
  dw.wts2$m$sweights not equivalent to clus_mean_weights/sum(clus_mean_weights).
  target is NULL, current is array
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:764:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(dw.wts2$m$sweights, clus_mean_weights/sum(clus_mean_weights)) at test.Design.R:819:3
  ── Error ('test.Design.R:849:5'): In inferentials, NAs imputed to stratum means ──
  Error in `asimple1[["m"]]@Covariates`: no applicable method for `@` applied to an object of class "NULL"
  Backtrace:
      ▆
   1. ├─testthat::expect_lt(...) at test.Design.R:849:5
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─stats::var(asimple1[["m"]]@Covariates[, "x"])
   5.   └─base::is.data.frame(x)
  ── Failure ('test.Design.R:906:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]]$adj.diff.of.totals[-4] not equivalent to xb0$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:906:5
  ── Failure ('test.Design.R:908:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb0$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:908:5
  ── Failure ('test.Design.R:910:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]][c("Msq", "DF")] not equivalent to xb0[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:910:5
  ── Failure ('test.Design.R:948:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$adj.diff.of.totals[-4] not equivalent to xb1m$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:948:3
  ── Failure ('test.Design.R:950:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:950:3
  ── Failure ('test.Design.R:952:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:952:3
  ── Failure ('test.Design.R:990:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$adj.diff.of.totals not equivalent to xb1m$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:990:3
  ── Failure ('test.Design.R:992:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$tcov not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:992:3
  ── Failure ('test.Design.R:994:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:994:3
  ── Failure ('test.Design.R:906:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]]$adj.diff.of.totals[-4] not equivalent to xb0$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:906:5
  ── Failure ('test.Design.R:908:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb0$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:908:5
  ── Failure ('test.Design.R:910:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]][c("Msq", "DF")] not equivalent to xb0[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:910:5
  ── Failure ('test.Design.R:948:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$adj.diff.of.totals[-4] not equivalent to xb1m$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:948:3
  ── Failure ('test.Design.R:950:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:950:3
  ── Failure ('test.Design.R:952:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:952:3
  ── Failure ('test.Design.R:990:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$adj.diff.of.totals not equivalent to xb1m$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:990:3
  ── Failure ('test.Design.R:992:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$tcov not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:992:3
  ── Failure ('test.Design.R:994:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:994:3
  ── Failure ('test.Design.R:906:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]]$adj.diff.of.totals[-4] not equivalent to xb0$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:906:5
  ── Failure ('test.Design.R:908:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb0$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:908:5
  ── Failure ('test.Design.R:910:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]][c("Msq", "DF")] not equivalent to xb0[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:910:5
  ── Failure ('test.Design.R:948:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$adj.diff.of.totals[-4] not equivalent to xb1m$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:948:3
  ── Failure ('test.Design.R:950:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:950:3
  ── Failure ('test.Design.R:952:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:952:3
  ── Failure ('test.Design.R:990:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$adj.diff.of.totals not equivalent to xb1m$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:990:3
  ── Failure ('test.Design.R:992:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$tcov not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:992:3
  ── Failure ('test.Design.R:994:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:994:3
  ── Failure ('test.Design.R:906:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]]$adj.diff.of.totals[-4] not equivalent to xb0$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:906:5
  ── Failure ('test.Design.R:908:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb0$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:908:5
  ── Failure ('test.Design.R:910:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]][c("Msq", "DF")] not equivalent to xb0[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:910:5
  ── Failure ('test.Design.R:948:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$adj.diff.of.totals[-4] not equivalent to xb1m$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:948:3
  ── Failure ('test.Design.R:950:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:950:3
  ── Failure ('test.Design.R:952:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:952:3
  ── Failure ('test.Design.R:990:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$adj.diff.of.totals not equivalent to xb1m$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:990:3
  ── Failure ('test.Design.R:992:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$tcov not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:992:3
  ── Failure ('test.Design.R:994:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:994:3
  ── Failure ('test.Design.R:906:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]]$adj.diff.of.totals[-4] not equivalent to xb0$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:906:5
  ── Failure ('test.Design.R:908:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb0$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:908:5
  ── Failure ('test.Design.R:910:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]][c("Msq", "DF")] not equivalent to xb0[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:910:5
  ── Failure ('test.Design.R:948:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$adj.diff.of.totals[-4] not equivalent to xb1m$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:948:3
  ── Failure ('test.Design.R:950:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:950:3
  ── Failure ('test.Design.R:952:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:952:3
  ── Failure ('test.Design.R:990:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$adj.diff.of.totals not equivalent to xb1m$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:990:3
  ── Failure ('test.Design.R:992:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$tcov not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:992:3
  ── Failure ('test.Design.R:994:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:994:3
  ── Failure ('test.Design.R:906:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]]$adj.diff.of.totals[-4] not equivalent to xb0$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:906:5
  ── Failure ('test.Design.R:908:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb0$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:908:5
  ── Failure ('test.Design.R:910:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]][c("Msq", "DF")] not equivalent to xb0[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:910:5
  ── Failure ('test.Design.R:948:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$adj.diff.of.totals[-4] not equivalent to xb1m$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:948:3
  ── Failure ('test.Design.R:950:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:950:3
  ── Failure ('test.Design.R:952:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:952:3
  ── Failure ('test.Design.R:990:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$adj.diff.of.totals not equivalent to xb1m$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:990:3
  ── Failure ('test.Design.R:992:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$tcov not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:992:3
  ── Failure ('test.Design.R:994:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:994:3
  ── Failure ('test.Design.R:906:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]]$adj.diff.of.totals[-4] not equivalent to xb0$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:906:5
  ── Failure ('test.Design.R:908:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb0$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:908:5
  ── Failure ('test.Design.R:910:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]][c("Msq", "DF")] not equivalent to xb0[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:910:5
  ── Failure ('test.Design.R:948:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$adj.diff.of.totals[-4] not equivalent to xb1m$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:948:3
  ── Failure ('test.Design.R:950:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:950:3
  ── Failure ('test.Design.R:952:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:952:3
  ── Failure ('test.Design.R:990:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$adj.diff.of.totals not equivalent to xb1m$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:990:3
  ── Failure ('test.Design.R:992:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$tcov not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:992:3
  ── Failure ('test.Design.R:994:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:994:3
  ── Failure ('test.Design.R:906:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]]$adj.diff.of.totals[-4] not equivalent to xb0$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:906:5
  ── Failure ('test.Design.R:908:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb0$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:908:5
  ── Failure ('test.Design.R:910:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]][c("Msq", "DF")] not equivalent to xb0[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:910:5
  ── Failure ('test.Design.R:948:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$adj.diff.of.totals[-4] not equivalent to xb1m$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:948:3
  ── Failure ('test.Design.R:950:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:950:3
  ── Failure ('test.Design.R:952:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:952:3
  ── Failure ('test.Design.R:990:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$adj.diff.of.totals not equivalent to xb1m$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:990:3
  ── Failure ('test.Design.R:992:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$tcov not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:992:3
  ── Failure ('test.Design.R:994:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:994:3
  ── Failure ('test.Design.R:906:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]]$adj.diff.of.totals[-4] not equivalent to xb0$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:906:5
  ── Failure ('test.Design.R:908:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb0$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:908:5
  ── Failure ('test.Design.R:910:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]][c("Msq", "DF")] not equivalent to xb0[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:910:5
  ── Failure ('test.Design.R:948:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$adj.diff.of.totals[-4] not equivalent to xb1m$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:948:3
  ── Failure ('test.Design.R:950:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:950:3
  ── Failure ('test.Design.R:952:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:952:3
  ── Failure ('test.Design.R:990:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$adj.diff.of.totals not equivalent to xb1m$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:990:3
  ── Failure ('test.Design.R:992:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$tcov not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:992:3
  ── Failure ('test.Design.R:994:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:994:3
  ── Failure ('test.Design.R:906:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]]$adj.diff.of.totals[-4] not equivalent to xb0$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:906:5
  ── Failure ('test.Design.R:908:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb0$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:908:5
  ── Failure ('test.Design.R:910:5'): HB08 agreement w/ xBal() ───────────────────
  btis0[["m"]][c("Msq", "DF")] not equivalent to xb0[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:910:5
  ── Failure ('test.Design.R:948:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$adj.diff.of.totals[-4] not equivalent to xb1m$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:948:3
  ── Failure ('test.Design.R:950:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:950:3
  ── Failure ('test.Design.R:952:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:952:3
  ── Failure ('test.Design.R:990:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$adj.diff.of.totals not equivalent to xb1m$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:990:3
  ── Failure ('test.Design.R:992:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]]$tcov not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:992:3
  ── Failure ('test.Design.R:994:3'): HB08 agreement w/ xBal() ───────────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:874:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:994:3
  ── Failure ('test.Design.R:1037:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]]$adj.diff.of.totals[-4] not equivalent to xb0$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1037:5
  ── Failure ('test.Design.R:1039:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb0$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1039:5
  ── Failure ('test.Design.R:1041:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]][c("Msq", "DF")] not equivalent to xb0[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1041:5
  ── Failure ('test.Design.R:1084:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]]$adj.diff.of.totals not equivalent to xb1m$results[1:3, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1084:3
  ── Failure ('test.Design.R:1086:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]]$tcov not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1086:3
  ── Failure ('test.Design.R:1088:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1088:3
  ── Failure ('test.Design.R:1037:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]]$adj.diff.of.totals[-4] not equivalent to xb0$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1037:5
  ── Failure ('test.Design.R:1039:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb0$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1039:5
  ── Failure ('test.Design.R:1041:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]][c("Msq", "DF")] not equivalent to xb0[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1041:5
  ── Failure ('test.Design.R:1084:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]]$adj.diff.of.totals not equivalent to xb1m$results[1:3, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1084:3
  ── Failure ('test.Design.R:1086:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]]$tcov not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1086:3
  ── Failure ('test.Design.R:1088:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1088:3
  ── Failure ('test.Design.R:1037:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]]$adj.diff.of.totals[-4] not equivalent to xb0$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1037:5
  ── Failure ('test.Design.R:1039:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb0$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1039:5
  ── Failure ('test.Design.R:1041:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]][c("Msq", "DF")] not equivalent to xb0[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1041:5
  ── Failure ('test.Design.R:1084:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]]$adj.diff.of.totals not equivalent to xb1m$results[1:3, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1084:3
  ── Failure ('test.Design.R:1086:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]]$tcov not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1086:3
  ── Failure ('test.Design.R:1088:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1088:3
  ── Failure ('test.Design.R:1037:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]]$adj.diff.of.totals[-4] not equivalent to xb0$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1037:5
  ── Failure ('test.Design.R:1039:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb0$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1039:5
  ── Failure ('test.Design.R:1041:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]][c("Msq", "DF")] not equivalent to xb0[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1041:5
  ── Failure ('test.Design.R:1084:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]]$adj.diff.of.totals not equivalent to xb1m$results[1:3, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1084:3
  ── Failure ('test.Design.R:1086:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]]$tcov not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1086:3
  ── Failure ('test.Design.R:1088:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1088:3
  ── Failure ('test.Design.R:1037:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]]$adj.diff.of.totals[-4] not equivalent to xb0$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1037:5
  ── Failure ('test.Design.R:1039:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb0$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1039:5
  ── Failure ('test.Design.R:1041:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]][c("Msq", "DF")] not equivalent to xb0[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1041:5
  ── Failure ('test.Design.R:1084:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]]$adj.diff.of.totals not equivalent to xb1m$results[1:3, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1084:3
  ── Failure ('test.Design.R:1086:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]]$tcov not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1086:3
  ── Failure ('test.Design.R:1088:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1088:3
  ── Failure ('test.Design.R:1037:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]]$adj.diff.of.totals[-4] not equivalent to xb0$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1037:5
  ── Failure ('test.Design.R:1039:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb0$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1039:5
  ── Failure ('test.Design.R:1041:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]][c("Msq", "DF")] not equivalent to xb0[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1041:5
  ── Failure ('test.Design.R:1084:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]]$adj.diff.of.totals not equivalent to xb1m$results[1:3, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1084:3
  ── Failure ('test.Design.R:1086:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]]$tcov not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1086:3
  ── Failure ('test.Design.R:1088:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1088:3
  ── Failure ('test.Design.R:1037:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]]$adj.diff.of.totals[-4] not equivalent to xb0$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1037:5
  ── Failure ('test.Design.R:1039:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb0$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1039:5
  ── Failure ('test.Design.R:1041:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]][c("Msq", "DF")] not equivalent to xb0[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1041:5
  ── Failure ('test.Design.R:1084:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]]$adj.diff.of.totals not equivalent to xb1m$results[1:3, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1084:3
  ── Failure ('test.Design.R:1086:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]]$tcov not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1086:3
  ── Failure ('test.Design.R:1088:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1088:3
  ── Failure ('test.Design.R:1037:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]]$adj.diff.of.totals[-4] not equivalent to xb0$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1037:5
  ── Failure ('test.Design.R:1039:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb0$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1039:5
  ── Failure ('test.Design.R:1041:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]][c("Msq", "DF")] not equivalent to xb0[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1041:5
  ── Failure ('test.Design.R:1084:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]]$adj.diff.of.totals not equivalent to xb1m$results[1:3, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1084:3
  ── Failure ('test.Design.R:1086:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]]$tcov not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1086:3
  ── Failure ('test.Design.R:1088:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1088:3
  ── Failure ('test.Design.R:1037:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]]$adj.diff.of.totals[-4] not equivalent to xb0$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1037:5
  ── Failure ('test.Design.R:1039:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb0$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1039:5
  ── Failure ('test.Design.R:1041:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]][c("Msq", "DF")] not equivalent to xb0[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1041:5
  ── Failure ('test.Design.R:1084:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]]$adj.diff.of.totals not equivalent to xb1m$results[1:3, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1084:3
  ── Failure ('test.Design.R:1086:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]]$tcov not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1086:3
  ── Failure ('test.Design.R:1088:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1088:3
  ── Failure ('test.Design.R:1037:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]]$adj.diff.of.totals[-4] not equivalent to xb0$results[, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1037:5
  ── Failure ('test.Design.R:1039:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]]$tcov[1:3, 1:3] not equivalent to attr(xb0$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1039:5
  ── Failure ('test.Design.R:1041:5'): HB08_2016 agreement w/ xBal() ─────────────
  btis0[["m"]][c("Msq", "DF")] not equivalent to xb0[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1041:5
  ── Failure ('test.Design.R:1084:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]]$adj.diff.of.totals not equivalent to xb1m$results[1:3, "adj.diff", "matched"].
  target is NULL, current is numeric
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1084:3
  ── Failure ('test.Design.R:1086:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]]$tcov not equivalent to attr(xb1m$overall, "tcov")$matched.
  target is NULL, current is matrix
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1086:3
  ── Failure ('test.Design.R:1088:3'): HB08_2016 agreement w/ xBal() ─────────────
  btis1[["m"]][c("Msq", "DF")] not equivalent to xb1m[["overall"]]["matched", c("chisquare", "df"), drop = TRUE].
  target is NULL, current is list
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.Design.R:1004:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.Design.R:1088:3
  ── Failure ('test.Design.R:1113:3'): HB08 and HB08_2016 flag degenerate statistics ──
  `balanceTest(z ~ . + strata(b), data = df_bad, inferentials.calculator = RItools:::HB08)` did not produce any warnings.
  ── Failure ('test.Design.R:1114:3'): HB08 and HB08_2016 flag degenerate statistics ──
  `balanceTest(z ~ . + strata(b), data = df_bad, inferentials.calculator = RItools:::HB08_2016)` did not produce any warnings.
  ── Error ('test.balanceTest.R:26:6'): balT univariate descriptive means agree w/ reference calculations ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `xb1$results["x1", "adj.diff", "s"]`: subscript out of bounds
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.balanceTest.R:10:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.balanceTest.R:26:6
   6.           └─testthat::quasi_label(enquo(object), label, arg = "object")
   7.             └─rlang::eval_bare(expr, quo_get_env(quo))
  ── Error ('test.balanceTest.R:50:5'): Consistency between lm() and balTest() ───
  <subscriptOutOfBoundsError/error/condition>
  Error in `strataAligned[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.balanceTest.R:38:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─RItools::balanceTest(...) at test.balanceTest.R:50:5
  ── Error ('test.balanceTest.R:110:5'): balT inferentials, incl. agreement w/ Rao score test for cond'l logistic regr ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `xb1$results["x1", "z", "s"]`: subscript out of bounds
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.balanceTest.R:96:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.balanceTest.R:110:5
   6.           └─testthat::quasi_label(enquo(expected), expected.label, arg = "expected")
   7.             └─rlang::eval_bare(expr, quo_get_env(quo))
  ── Failure ('test.balanceTest.R:160:3'): balT returns covariance of tests ──────
  length(tcov) not equal to 2.
  1/1 mismatches
  [1] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.balanceTest.R:136:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(length(tcov), 2) at test.balanceTest.R:160:3
  ── Failure ('test.balanceTest.R:160:3'): balT returns covariance of tests ──────
  length(tcov) not equal to 2.
  1/1 mismatches
  [1] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.balanceTest.R:136:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(length(tcov), 2) at test.balanceTest.R:160:3
  ── Failure ('test.balanceTest.R:160:3'): balT returns covariance of tests ──────
  length(tcov) not equal to 2.
  1/1 mismatches
  [1] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.balanceTest.R:136:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(length(tcov), 2) at test.balanceTest.R:160:3
  ── Failure ('test.balanceTest.R:160:3'): balT returns covariance of tests ──────
  length(tcov) not equal to 2.
  1/1 mismatches
  [1] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.balanceTest.R:136:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(length(tcov), 2) at test.balanceTest.R:160:3
  ── Failure ('test.balanceTest.R:160:3'): balT returns covariance of tests ──────
  length(tcov) not equal to 2.
  1/1 mismatches
  [1] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.balanceTest.R:136:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(length(tcov), 2) at test.balanceTest.R:160:3
  ── Failure ('test.balanceTest.R:160:3'): balT returns covariance of tests ──────
  length(tcov) not equal to 2.
  1/1 mismatches
  [1] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.balanceTest.R:136:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(length(tcov), 2) at test.balanceTest.R:160:3
  ── Failure ('test.balanceTest.R:160:3'): balT returns covariance of tests ──────
  length(tcov) not equal to 2.
  1/1 mismatches
  [1] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.balanceTest.R:136:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(length(tcov), 2) at test.balanceTest.R:160:3
  ── Failure ('test.balanceTest.R:160:3'): balT returns covariance of tests ──────
  length(tcov) not equal to 2.
  1/1 mismatches
  [1] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.balanceTest.R:136:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(length(tcov), 2) at test.balanceTest.R:160:3
  ── Failure ('test.balanceTest.R:160:3'): balT returns covariance of tests ──────
  length(tcov) not equal to 2.
  1/1 mismatches
  [1] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.balanceTest.R:136:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(length(tcov), 2) at test.balanceTest.R:160:3
  ── Failure ('test.balanceTest.R:160:3'): balT returns covariance of tests ──────
  length(tcov) not equal to 2.
  1/1 mismatches
  [1] 1 - 2 == -1
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.balanceTest.R:136:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equal(length(tcov), 2) at test.balanceTest.R:160:3
  ── Error ('test.balanceTest.R:211:3'): Use of subset argument ──────────────────
  <subscriptOutOfBoundsError/error/condition>
  Error in `strataAligned[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. └─RItools::balanceTest(pr ~ . - pt + strata(pt) - 1, data = nuclearplants) at test.balanceTest.R:211:3
  ── Failure ('test.balanceTest.R:370:3'): balanceTest agrees with other methods where appropriate ──
  xb1$overall$chisquare not equivalent to bt1$overall[2:1, "chisquare"].
  2/2 mismatches (average diff: 0.323)
  [1] 1.28 -   NA ==    NA
  [2] 1.60 - 1.28 == 0.323
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.balanceTest.R:351:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(...) at test.balanceTest.R:370:3
  ── Failure ('test.balanceTest.R:372:3'): balanceTest agrees with other methods where appropriate ──
  bt1$overall[1, "p.value"] not equivalent to summary(cr1)$sctest["pvalue"].
  1/1 mismatches
  [1] 0.734 - 0.659 == 0.0751
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.balanceTest.R:351:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─testthat::expect_equivalent(bt1$overall[1, "p.value"], summary(cr1)$sctest["pvalue"]) at test.balanceTest.R:372:3
  ── Error ('test.balanceTest.R:396:3'): balanceTest agrees with other methods where appropriate ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `strataAligned[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. └─base::replicate(...) at test.balanceTest.R:351:5
   2.   └─base::sapply(...)
   3.     └─base::lapply(X = X, FUN = FUN, ...)
   4.       └─RItools (local) FUN(X[[i]], ...)
   5.         └─RItools::balanceTest(...) at test.balanceTest.R:396:3
  ── Failure ('test.clusters.R:44:3'): Clusters must be aligned to treatment assignment and nested within strata ──
  `balanceTest(z.good ~ x + strata(strata.bad), data = d)` did not produce any warnings.
  ── Failure ('test.clusters.R:46:3'): Clusters must be aligned to treatment assignment and nested within strata ──
  `balanceTest(...)` did not throw an error.
  ── Failure ('test.clusters.R:47:3'): Clusters must be aligned to treatment assignment and nested within strata ──
  `balanceTest(...)` did not throw an error.
  ── Error ('test.utils.R:124:3'): Select a subset of xbal results (for printing, etc) ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `x$results[vars, stats, strata, drop = F]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::subset(xb, strata = c("--", "cut(U, 3)")) at test.utils.R:124:3
   2. └─RItools:::subset.xbal(xb, strata = c("--", "cut(U, 3)"))
  ── Failure ('test.utils.R:181:3'): Formatting w/ appropriate sigfigs values ────
  ca1[1, , 1] not equal to c(Control = "-0.0474", Treatment = "-0.0425", adj.diff = " 0.00495").
  2/3 mismatches
  x[1]: "-0.0475"
  y[1]: "-0.0474"
  
  x[3]: " 0.0050"
  y[3]: " 0.00495"
  ── Failure ('test.utils.R:217:3'): Var names in print.xbal(,horiz=F) ───────────
  "std.diff" %in% colnames(pt2$vartable[["S"]]) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  
  [ FAIL 259 | WARN 20 | SKIP 0 | PASS 727 ]
  Error: Test failures
  Execution halted