created framework to deal with tests using testthat

DESCRIPTION

@@ -38,6 +38,8 @@ Imports:
     dendextend,
     reshape2,
     RColorBrewer
+Suggests:
+    testthat
 License: GPL (>= 2)
 RoxygenNote: 7.1.2
 Encoding: UTF-8

tests/testthat.R

+library("testthat")
+library("SISIR")
+
+test_check("SISIR")

tests/test_ridge.R → tests/testthat/test_ridge.R

-library(SISIR)
+library("SISIR")
 
+context("Testing ridge regression `ridgeSIR`")
+
+test_that("Normalization in ridgeSIR works as expected.", {
 set.seed(1140)
 
 tsteps <- seq(0, 1, length = 200)
@@ -15,7 +18,8 @@ res_ridge <- ridgeSIR(x, y, H = 10, d = 5, mu2 = 10^8)
 
 # test if normalization is OK
 norm_EDR <- res_ridge$utils$norm_EDR
-stopifnot(max(abs(
-  diag(res_ridge$parameters$d) - 
-    crossprod(res_ridge$EDR, norm_EDR) %*% res_ridge$EDR
-  )) < 10^(-10))
+
+expect_equal(diag(res_ridge$parameters$d), 
+             crossprod(res_ridge$EDR, norm_EDR) %*% res_ridge$EDR,
+             tolerance = 10^(-10))
+})