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)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.