tests/testthat/test-regression.R

In paulhendricks/scorer: Quickly Score Models in Data Science and Machine Learning

library(scorer)
context("regression")

n <- 10000
x <- 1:n

test_that("absolute_error() produces correct output.", {
  expect_equal(absolute_error(x, x), rep(0, n))
  expect_equal(absolute_error(0, 1), 1)
  expect_equal(absolute_error(1, 0), 1)
  expect_equal(absolute_error(FALSE, TRUE), 1)
  expect_equal(absolute_error(TRUE, FALSE), 1)
})

test_that("absolute_error() produces correct output classes and types.", {
  expect_is(absolute_error(runif(n), runif(n)), "numeric")
})

test_that("absolute_error() raises correct messages, warnings, and errors.", {
  expect_error(absolute_error("a", "b"))
})

test_that("percent_error() produces correct output.", {
  expect_equal(percent_error(x, x), rep(0, n))
  expect_equal(percent_error(0, 1), -Inf)
  expect_equal(percent_error(1, 0), 1)
  expect_equal(percent_error(FALSE, TRUE), -Inf)
  expect_equal(percent_error(TRUE, FALSE), 1)
})

test_that("percent_error() produces correct output classes and types.", {
  expect_is(percent_error(runif(n), runif(n)), "numeric")
})

test_that("percent_error() raises correct messages, warnings, and errors.", {
  expect_error(percent_error("a", "b"))
})

test_that("log_error() produces correct output.", {
  expect_equal(log_error(2 * exp(1), exp(1)), 1)
  expect_equal(log_error(0, 1), NaN)
  expect_equal(log_error(1, 0), 0)
  expect_equal(log_error(FALSE, TRUE), NaN)
  expect_equal(log_error(TRUE, FALSE), 0)
})

test_that("log_error() produces correct output classes and types.", {
  expect_is(log_error(runif(n), runif(n)), "numeric")
})

test_that("log_error() raises correct messages, warnings, and errors.", {
  expect_error(log_error("a", "b"))
})

test_that("squared_error() produces correct output.", {
  expect_equal(squared_error(x, x), rep(0, n))
  expect_equal(squared_error(0, 1), 1)
  expect_equal(squared_error(1, 0), 1)
  expect_equal(squared_error(FALSE, TRUE), 1)
  expect_equal(squared_error(TRUE, FALSE), 1)
})

test_that("squared_error() produces correct output classes and types.", {
  expect_is(squared_error(runif(n), runif(n)), "numeric")
})

test_that("squared_error() raises correct messages, warnings, and errors.", {
  expect_error(squared_error("a", "b"))
})