tests/testthat/test-confreg.R

In melt: Multiple Empirical Likelihood Tests

test_that("Invalid `object`.", {
  fit <- el_lm(mpg ~ 0, data = mtcars)
  fit2 <- el_glm(gear ~ 1, family = quasipoisson("log"), data = mtcars)
  expect_error(confreg(fit, parm = c(1, 2)))
  expect_error(confreg(fit2, parm = c(1, 2)))
  fit@data <- matrix()
  expect_error(confreg(fit, parm = c(1, 2)))
})

test_that("Invalid `parm`.", {
  fit <- el_lm(mpg ~ hp, data = mtcars)
  expect_error(confreg(fit, parm = c(1, 2, 3)))
  expect_error(confreg(fit, parm = c(1, 1)))
  expect_error(confreg(fit, parm = c("error", "error2")))
  expect_error(confreg(fit, parm = c("hp", "hp")))
  expect_error(confreg(fit, parm = c(NaN, NA)))
  names(fit@coefficients) <- NULL
  expect_error(confreg(fit, parm = c("error", "error2")))
})

test_that("Invalid `level`.", {
  fit <- el_lm(mpg ~ hp + disp, data = mtcars)
  expect_s4_class(confreg(fit, parm = c(1, 2), level = 0), "ConfregEL")
  expect_error(confreg(fit, parm = c(1, 2), level = 1))
})

test_that("Invalid `cv`.", {
  fit <- el_lm(mpg ~ hp, data = mtcars)
  expect_error(confreg(fit, parm = c(1, 2), cv = 1e+10))
  expect_error(confreg(fit,
    parm = c(1, 2), cv = 1e+10, control = el_control(th = 100)
  ))
})

test_that("Invalid `npoints`.", {
  fit <- el_lm(mpg ~ hp, data = mtcars)
  expect_error(confreg(fit, parm = c(1, 2), npoints = -10))
})

test_that("Invalid `control`.", {
  fit <- el_lm(mpg ~ hp, data = mtcars)
  expect_error(confreg(fit, parm = c(1, 2), control = list(maxit = 10)))
})

test_that("`plot()` method.", {
  fit <- el_lm(mpg ~ disp + hp, data = mtcars)
  cr <- confreg(fit)
  cr2 <- confreg(fit, parm = c(1, 2), cv = 6)
  pdf(NULL)
  expect_invisible(plot(cr2))
  fit2 <- el_glm(gear ~ mpg + cyl,
    family = quasipoisson("log"), data = mtcars
  )
  cr3 <- confreg(fit2)
  cr4 <- confreg(fit2, parm = c(1, 2), cv = 6)
  pdf(NULL)
  expect_invisible(plot(cr4))
})