tests/testthat/test-independent_test_randomize_by_fixed_block.R

In simtrial: Clinical Trial Simulation

test_that("randomize_by_fixed_block returns an appropriate object: a vector of length n of treatment group", {
  s <- randomize_by_fixed_block(n = 10)
  expect_equal(length(s), 10)
})

test_that("the final block is a partial block if `n` is not an exact multiple of the block length", {
  n <- 10
  block <- c(0, 0, 1, 1)
  s <- randomize_by_fixed_block(n = n, block = block)
  lastblock <- s[(length(block) * floor(n / length(block)) + 1):length(s)]

  freq <- table(block)
  freq_lastblock <- table(lastblock)

  if (0 %in% lastblock) expect_lte(as.numeric(freq_lastblock[names(freq_lastblock) == 0]), as.numeric(freq[names(freq) == 0]))
  if (1 %in% lastblock) expect_lte(as.numeric(freq_lastblock[names(freq_lastblock) == 1]), as.numeric(freq[names(freq) == 1]))
})