Tighten test tolerance

aadler · Aug 6, 2023 · 30e27a1 · 30e27a1
1 parent bcf08ae
commit 30e27a1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/inst/tinytest/test_lamW.R b/inst/tinytest/test_lamW.R
@@ -1,7 +1,7 @@
 # Copyright (c) 2015, Avraham Adler All rights reserved
 # SPDX-License-Identifier: BSD-2-Clause
 
-tol <- sqrt(.Machine$double.eps)
+tol <- 1e-12
 # Test that functions return proper values
 principleBranchAnswers <- runif(5000, min = -1, max = 703.22703310477016)
 principleBranchTests <- principleBranchAnswers * exp(principleBranchAnswers)