tests/testthat/tests.pollbasepro.R

In jackobailey/PollBasePro: Data and Functions for Studying British Politics

# Tests: pollbasepro dataset


# 1. Housekeeping ---------------------------------------------------------

# Load packages

library(britpol)



# 2. Data tests -----------------------------------------------------------

# Test 1: Ensure that there are no missing dates

test_that("There are no missing dates", {
  expect_equal(
    length(setdiff(seq.Date(min(pollbasepro$date), max(pollbasepro$date), "days"), pollbasepro$date)),
    0
  )
})


# Test 2: Ensure all voting intention estimates are between 0 and 1

test_that("All voting intention estimates are between 0 and 1", {
  expect_gte(
    min(pollbasepro$con_est),
    0
  )
  expect_lte(
    max(pollbasepro$con_est),
    1
  )
  expect_gte(
    min(pollbasepro$lab_est),
    0
  )
  expect_lte(
    max(pollbasepro$lab_est),
    1
  )
  expect_gte(
    min(pollbasepro$lib_est),
    0
  )
  expect_lte(
    max(pollbasepro$lib_est),
    1
  )
})


# Test 3: Ensure correlations between parties are negative

test_that("Correlations between voting intention figures are negative", {
  expect_lt(
    cor.test(pollbasepro$lib_est, pollbasepro$con_est)$estimate,
    0
  )
  expect_lt(
    cor.test(pollbasepro$lib_est, pollbasepro$lab_est)$estimate,
    0
  )
  expect_lt(
    cor.test(pollbasepro$con_est, pollbasepro$lab_est)$estimate,
    0
  )
})


# Test 4: Ensure validation correlations exceed 80%

test_that("Correlations between voting intention figures are negative", {
  expect_gt(
    cor.test(pollbasepro$con_est[match(pollbase$end, pollbasepro$date)], pollbase$con)$estimate,
    0.8
  )
  expect_gt(
    cor.test(pollbasepro$lab_est[match(pollbase$end, pollbasepro$date)], pollbase$lab)$estimate,
    0.8
  )
  expect_gt(
    cor.test(pollbasepro$lib_est[match(pollbase$end, pollbasepro$date)], pollbase$lib)$estimate,
    0.8
  )
})


# Test 5: Check that election estimates are consistent across parties

test_that("Check that date subset indicators exhibit appropriate frequencies", {
  expect_equal(
    pollbasepro$con_err[pollbasepro$con_err == 0],
    pollbasepro$lab_err[pollbasepro$con_err == 0]
  )
  expect_equal(
    pollbasepro$con_err[pollbasepro$con_err == 0],
    pollbasepro$lib_err[pollbasepro$con_err == 0]
  )
  expect_equal(
    pollbasepro$lab_err[pollbasepro$lab_err == 0],
    pollbasepro$lib_err[pollbasepro$lab_err == 0]
  )
})