tests/testthat/test.ROC.R

In josherrickson/postr: Post-estimation commands for GLM models

context("ROC")

## glm
data(mtcars)
m <- glm(vs ~ mpg, data = mtcars, family = binomial)

test_that("returned object is appropriate", {
  expect_is(postr_ROC(m), "gg")
})

## glmer
library(lme4)
m <- glmer(vs ~ mpg + (1|gear), data = mtcars, family = binomial)

test_that("returned object is appropriate", {
  expect_is(postr_ROC(m), "gg")
})

test_that("pr aliases", {
  expect_equal(postr_ROC(m), pr_ROC(m))
  # gg objects (plots in general) aren't identical but are all.equal
})

test_that("Improper object", {
  expect_error(pr_ROC(1, .5), "ROC not supported")
  m <- update(m, family = poisson)
  expect_error(pr_ROC(m, .5), "family must be")
})