tests/testthat/test-model.R

In IsaacVerm/reproseries: example for the series of reproducible analysis posts on isaacverm.github.io

test_that("calculateAutoCorrelation() gives number between 0 and 1", {
  correlation <- nottem %>%
    temperatureSeriesToDf %>%
    tidyTemperatures %>%
    addCelsiusColumn %>%
    summariseAvgTemperatureByYear %>%
    calculateAutoCorrelation

  expect_gte(correlation, 0)
  expect_lte(correlation, 1)
})