From ce4e0fb6c2d5f746dc6cdf82473ab3d1a8ab28db Mon Sep 17 00:00:00 2001 From: Nuno Agostinho Date: Sun, 4 Feb 2024 10:56:14 +0000 Subject: [PATCH] Set seed when creating PSI datasets for reproducibility of unit test --- tests/testthat/testDiscardLowCoveragePSIs.R | 1 + 1 file changed, 1 insertion(+) diff --git a/tests/testthat/testDiscardLowCoveragePSIs.R b/tests/testthat/testDiscardLowCoveragePSIs.R index 9b50a9b9..2fc592b4 100644 --- a/tests/testthat/testDiscardLowCoveragePSIs.R +++ b/tests/testthat/testDiscardLowCoveragePSIs.R @@ -1,6 +1,7 @@ context("Discard low coverage PSI values") createPSIdataset <- function(samples=20, events=50) { + set.seed(639245) size <- samples * events num <- sample(seq(100), size, replace=TRUE) num[sample(size, size / 10)] <- NA