tests/testthat/test_powersim.R

In ecopower: Power Estimates and Equivalence Testing for Multivariate Data

context("powersim - class of object")

test_that("cord object", {

  expect_error(
    powersim(fit1.glm, effect_mat, term_cont)
  )

})

context("powersim - check input args")

test_that("coeffs exist", {

  expect_error(
    powersim(fit1.cord, NULL, term_cont)
  )

})