CRAN Package Check Results for Package RItools

Last updated on 2025-04-01 09:55:06 CEST.

Flavor	Version	T_install	T_check	T_total	Status
r-devel-linux-x86_64-debian-clang	0.3-4	13.15	131.50	144.65	ERROR
r-devel-linux-x86_64-debian-gcc	0.3-4	7.40	86.95	94.35	ERROR
r-devel-linux-x86_64-fedora-clang	0.3-4			230.62	ERROR
r-devel-linux-x86_64-fedora-gcc	0.3-4			238.59	ERROR
r-devel-macos-arm64	0.3-4			57.00	OK
r-devel-macos-x86_64	0.3-4			124.00	OK
r-devel-windows-x86_64	0.3-4	15.00	129.00	144.00	NOTE
r-patched-linux-x86_64	0.3-4	13.17	125.15	138.32	NOTE
r-release-linux-x86_64	0.3-4	10.79	121.16	131.95	OK
r-release-macos-arm64	0.3-4			56.00	OK
r-release-macos-x86_64	0.3-4			129.00	OK
r-release-windows-x86_64	0.3-4	13.00	130.00	143.00	OK
r-oldrel-macos-arm64	0.3-4				OK
r-oldrel-macos-x86_64	0.3-4			123.00	OK
r-oldrel-windows-x86_64	0.3-4	18.00	172.00	190.00	OK

Check Details

Version: 0.3-4
Check: Rd cross-references
Result: NOTE Found the following Rd file(s) with Rd \link{} targets missing package anchors: plot.balancetest.Rd: ggplot, scale_color_manual Please provide package anchors for all Rd \link{} targets not in the package itself and the base packages. Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-windows-x86_64, r-patched-linux-x86_64

Version: 0.3-4
Check: examples
Result: ERROR Running examples in ‘RItools-Ex.R’ failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: print.xbal > ### Title: Printing xBalance and balanceTest Objects > ### Aliases: print.xbal print print.balancetest > ### Keywords: print > > ### ** Examples > > data(nuclearplants) > > > xb1 <- balanceTest(pr ~ date + t1 + t2 + cap + ne + ct + bw + cum.n + strata(pt), + data = nuclearplants) > > print(xb1) strata(): -- stat Treatment Control adj.diff std.diff z vars date 68.5 68.6 -0.118 -0.11 -0.31 t1 14.0 13.6 0.364 0.10 0.28 t2 69.1 59.3 9.78 0.99 2.47 cap 870 805 64.6 0.35 0.89 ne 0.200 0.273 -0.0727 -0.17 -0.43 ct 0.300 0.455 -0.155 -0.31 -0.81 bw 0.200 0.182 0.0182 0.04 0.12 cum.n 8.10 8.73 -0.627 -0.10 -0.26 ---Overall Test--- chisquare df p.value -- 11.5 8 0.177 --- Signif. codes: 0 ‘***’ 0.001 ‘** ’ 0.01 ‘* ’ 0.05 ‘. ’ 0.1 ‘ ’ 1 > > print(xb1, show.pvals = TRUE) strata(): -- stat Treatment Control adj.diff std.diff z p vars date 68.5 68.6 -0.118 -0.11 -0.31 1.000 t1 14.0 13.6 0.364 0.10 0.28 1.000 t2 69.1 59.3 9.78 0.99 2.47 0.109 cap 870 805 64.6 0.35 0.89 1.000 ne 0.200 0.273 -0.0727 -0.17 -0.43 1.000 ct 0.300 0.455 -0.155 -0.31 -0.81 1.000 bw 0.200 0.182 0.0182 0.04 0.12 1.000 cum.n 8.10 8.73 -0.627 -0.10 -0.26 1.000 ---Overall Test--- chisquare df p.value -- 11.5 8 0.177 > > print(xb1, horizontal = FALSE) $`--` Treatment Control adj.diff std.diff z sig. date 68.5 68.6 -0.118 -0.11 -0.31 t1 14.0 13.6 0.364 0.10 0.28 t2 69.1 59.3 9.78 0.99 2.47 cap 870 805 64.6 0.35 0.89 ne 0.200 0.273 -0.0727 -0.17 -0.43 ct 0.300 0.455 -0.155 -0.31 -0.81 bw 0.200 0.182 0.0182 0.04 0.12 cum.n 8.10 8.73 -0.627 -0.10 -0.26 ---Overall Test--- chisquare df p.value -- 11.5 8 0.177 --- Signif. codes: 0 ‘***’ 0.001 ‘** ’ 0.01 ‘* ’ 0.05 ‘. ’ 0.1 ‘ ’ 1 > > ## The following doesn't work yet. > ## Not run: > ##D print(xb1, which.vars=c("date","t1"), > ##D which.stats=c("adj.means","z.scores","p.values")) > ## End(Not run) > > ## The following example prints the adjusted means > ## labeled as "treatmentvar=0" and "treatmentvar=1" using the > ## formula provided to xBalance(). > > # This is erroring with the change to devtools, FIXME > ## Not run: > ##D print(xb1, > ##D which.vars = c("date", "t1"), > ##D which.stats = c("pr=0", "pr=1", "z", "p")) > ## End(Not run) > > ## Only printing out a specific stratification factor > xb2 <- balanceTest(pr~ date + t1 + t2 + cap + ne + ct + bw + cum.n + strata(pt), + data = nuclearplants) > > print(xb2, which.strata = "pt") Error in x$results[vars, stats, strata, drop = F] : subscript out of bounds Calls: print ... tryCatch -> tryCatchList -> fun -> subset -> subset.xbal Execution halted Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc

Version: 0.3-4
Check: tests
Result: ERROR Running ‘testthat.R’ [38s/54s] Running ‘xBalanceTests2.R’ [3s/6s] 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 Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.3-4
Check: tests
Result: ERROR Running ‘testthat.R’ [23s/30s] 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 Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.3-4
Check: examples
Result: ERROR Running examples in ‘RItools-Ex.R’ failed The error most likely occurred in: > ### Name: print.xbal > ### Title: Printing xBalance and balanceTest Objects > ### Aliases: print.xbal print print.balancetest > ### Keywords: print > > ### ** Examples > > data(nuclearplants) > > > xb1 <- balanceTest(pr ~ date + t1 + t2 + cap + ne + ct + bw + cum.n + strata(pt), + data = nuclearplants) > > print(xb1) strata(): -- stat Treatment Control adj.diff std.diff z vars date 68.5 68.6 -0.118 -0.11 -0.31 t1 14.0 13.6 0.364 0.10 0.28 t2 69.1 59.3 9.78 0.99 2.47 cap 870 805 64.6 0.35 0.89 ne 0.200 0.273 -0.0727 -0.17 -0.43 ct 0.300 0.455 -0.155 -0.31 -0.81 bw 0.200 0.182 0.0182 0.04 0.12 cum.n 8.10 8.73 -0.627 -0.10 -0.26 ---Overall Test--- chisquare df p.value -- 11.5 8 0.177 --- Signif. codes: 0 ‘***’ 0.001 ‘** ’ 0.01 ‘* ’ 0.05 ‘. ’ 0.1 ‘ ’ 1 > > print(xb1, show.pvals = TRUE) strata(): -- stat Treatment Control adj.diff std.diff z p vars date 68.5 68.6 -0.118 -0.11 -0.31 1.000 t1 14.0 13.6 0.364 0.10 0.28 1.000 t2 69.1 59.3 9.78 0.99 2.47 0.109 cap 870 805 64.6 0.35 0.89 1.000 ne 0.200 0.273 -0.0727 -0.17 -0.43 1.000 ct 0.300 0.455 -0.155 -0.31 -0.81 1.000 bw 0.200 0.182 0.0182 0.04 0.12 1.000 cum.n 8.10 8.73 -0.627 -0.10 -0.26 1.000 ---Overall Test--- chisquare df p.value -- 11.5 8 0.177 > > print(xb1, horizontal = FALSE) $`--` Treatment Control adj.diff std.diff z sig. date 68.5 68.6 -0.118 -0.11 -0.31 t1 14.0 13.6 0.364 0.10 0.28 t2 69.1 59.3 9.78 0.99 2.47 cap 870 805 64.6 0.35 0.89 ne 0.200 0.273 -0.0727 -0.17 -0.43 ct 0.300 0.455 -0.155 -0.31 -0.81 bw 0.200 0.182 0.0182 0.04 0.12 cum.n 8.10 8.73 -0.627 -0.10 -0.26 ---Overall Test--- chisquare df p.value -- 11.5 8 0.177 --- Signif. codes: 0 ‘***’ 0.001 ‘** ’ 0.01 ‘* ’ 0.05 ‘. ’ 0.1 ‘ ’ 1 > > ## The following doesn't work yet. > ## Not run: > ##D print(xb1, which.vars=c("date","t1"), > ##D which.stats=c("adj.means","z.scores","p.values")) > ## End(Not run) > > ## The following example prints the adjusted means > ## labeled as "treatmentvar=0" and "treatmentvar=1" using the > ## formula provided to xBalance(). > > # This is erroring with the change to devtools, FIXME > ## Not run: > ##D print(xb1, > ##D which.vars = c("date", "t1"), > ##D which.stats = c("pr=0", "pr=1", "z", "p")) > ## End(Not run) > > ## Only printing out a specific stratification factor > xb2 <- balanceTest(pr~ date + t1 + t2 + cap + ne + ct + bw + cum.n + strata(pt), + data = nuclearplants) > > print(xb2, which.strata = "pt") Error in x$results[vars, stats, strata, drop = F] : subscript out of bounds Calls: print ... tryCatch -> tryCatchList -> fun -> subset -> subset.xbal Execution halted Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc

Version: 0.3-4
Check: tests
Result: ERROR Running ‘testthat.R’ [61s/68s] Running ‘xBalanceTests2.R’ 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 Flavor: r-devel-linux-x86_64-fedora-clang

Version: 0.3-4
Check: tests
Result: ERROR Running ‘testthat.R’ [66s/268s] Running ‘xBalanceTests2.R’ [5s/21s] 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 728 ] ══ 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 728 ] Error: Test failures Execution halted Flavor: r-devel-linux-x86_64-fedora-gcc