tests/testthat/test_accessors.R

context("Accessors")

test_that("accessors work", {
  data("model.coups")
  
  expect_error(logLik(model.coups), NA)
  expect_error(nobs(model.coups), NA)
  expect_error(coef(model.coups), NA)
  expect_error(vcov(model.coups), NA)
  expect_error(terms(model.coups), NA)
  expect_error(model.matrix(model.coups), NA)
})
andybega/spduration documentation built on Feb. 9, 2024, 8:23 p.m.