tests/testthat/test-helpers_adjust_batch.R

test_that("construct_design works", {
  expect_equal(construct_design(NULL), NULL)

  df_test <- data.frame(a = 1:3)
  expect_equal(ncol(construct_design(df_test)), 2)

  df_test <- data.frame(a = factor(1:3))
  expect_equal(ncol(construct_design(df_test)), 3)
})

Try the MMUPHin package in your browser

Any scripts or data that you put into this service are public.

MMUPHin documentation built on April 9, 2021, 6:01 p.m.