CRAN Package Check Results for Package RItools

Last updated on 2025-04-12 20:51:56 CEST.

Flavor	Version	T_install	T_check	T_total	Status
r-devel-linux-x86_64-debian-clang	0.3-4	12.01	128.04	140.05	ERROR
r-devel-linux-x86_64-debian-gcc	0.3-4	8.50	86.20	94.70	ERROR
r-devel-linux-x86_64-fedora-gcc	0.3-4			216.04	ERROR
r-devel-macos-arm64	0.3-4			59.00	OK
r-devel-macos-x86_64	0.3-4			124.00	OK
r-devel-windows-x86_64	0.3-4	13.00	129.00	142.00	NOTE
r-patched-linux-x86_64	0.3-4	12.62	124.57	137.19	NOTE
r-release-linux-x86_64	0.3-4				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	19.00	176.00	195.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	165.00	183.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’ [37s/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’ [22s/27s] 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 Flavor: r-devel-linux-x86_64-fedora-gcc

Version: 0.3-4
Check: tests
Result: ERROR Running ‘testthat.R’ [59s/84s] 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 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

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.