Add tests.

Author: ntthung

tests/testthat.R

@@ -0,0 +1,4 @@
+library(testthat)
+library(mbr)
+
+test_check("mbr")

tests/testthat/test-p1.R

@@ -0,0 +1,22 @@
+context("P1")
+
+fit <- mb_reconstruction(p1Seasonal, pc3seasons, 1750, log.trans = 1:3)
+set.seed(24)
+cvFolds <- make_Z(1922:2003, nRuns = 50, frac = 0.25, contiguous = TRUE)
+cv <- cv_mb(p1Seasonal, pc3seasons, cvFolds, 1750, log.trans = 1:3, return.type = 'metrics')
+
+test_that("P.1 reconstruction produces data.table output", {
+  expect_is(fit, 'data.table')
+})
+
+test_that("P.1 reconstruction is numerically correct", {
+  expect_equal(fit$Q[1], 596.9214, tolerance = 1e-4)
+})
+
+test_that("P.1 cross-validation produces data.table output", {
+  expect_is(cv, 'data.table')
+})
+
+test_that("P.1 cross-validation is numerically correct", {
+  expect_equal(cv$R2[1], 0.4111, tolerance = 1e-4)
+})