From 9f13ebd5a3d91e6e8f4ace20e246b304792ab37f Mon Sep 17 00:00:00 2001
From: bjaeger <bjaeger@wakehealth.edu>
Date: Fri, 24 Nov 2023 15:13:42 -0500
Subject: [PATCH] use threshold that is admissible on all os

---
 tests/testthat/test-orsf.R | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/tests/testthat/test-orsf.R b/tests/testthat/test-orsf.R
index c9a6bd67..1f01edf5 100644
--- a/tests/testthat/test-orsf.R
+++ b/tests/testthat/test-orsf.R
@@ -580,7 +580,7 @@ test_that(
 )
 
 test_that(
- desc = "user supplied beta functions are applied correctly",
+ desc = "correctly formatted user supplied beta functions are applied",
  code = {
 
   fit_pca = orsf(pbc,
@@ -589,7 +589,9 @@ test_that(
                  control = orsf_control_survival(method = f_pca),
                  n_tree = n_tree_test)
 
-  expect_gt(fit_pca$eval_oobag$stat_values, .765)
+  expect_true(fit_pca$control$lincomb_type == 'custom')
+
+  expect_gt(fit_pca$eval_oobag$stat_values, .65)
 
  }
 )