tests/testthat/test_AnalyseYearLine.R

In raubreywhite/dashboards_sykdomspuls: Depreciated - to be removed

context("AnalyseYearLine")

test_that("significantByThreshold vs significantByConfidenceIntervals", {
  library(data.table)

  d <- GenFakeDataAnalysis()
  res <- QuasipoissonTrainPredictData(
    datasetTrain = d,
    datasetPredict = d,
    isDaily = F
  )

  significantByThreshold <- res[n > threshold2]
  significantByConfidenceIntervals <- res[cumL1 > 0]
  testthat::expect_equal(significantByThreshold, significantByConfidenceIntervals)
})