tests/testthat/test_merge.R

In validmeasures/oldr: An Implementation of Rapid Assessment Method for Older People

x <- estimate_classic(x = create_op(testSVY),
                      w = testPSU,
                      replicates = 19)

y <- estimate_probit(x = create_op(testSVY),
                     w = testPSU,
                     replicates = 19)

z <- merge_op(x, y, prop2percent = TRUE)

test_that("z has 139 rows", {
  expect_equal(nrow(z), 139)
})

test_that("z has 13 columns", {
  expect_equal(ncol(z), 13)
})