From 196a404aaa5ea7c4c9a2f2fef8f4c50dd56315bc Mon Sep 17 00:00:00 2001 From: patrickpflughaupt Date: Mon, 26 Aug 2024 15:26:31 +0100 Subject: [PATCH] update test --- tests/testthat/test_score.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/tests/testthat/test_score.R b/tests/testthat/test_score.R index f92ac7b..c22d8e3 100644 --- a/tests/testthat/test_score.R +++ b/tests/testthat/test_score.R @@ -3,8 +3,8 @@ library(kmeRtone) temp_dir <- tempdir() set.seed(1234) -temp_files <- character(5) -for(chr in 1:5){ +temp_files <- character(3) +for(chr in 20:22){ genomic_coor <- data.table( seqnames = paste0("chr", chr), start = sample( @@ -44,13 +44,13 @@ case_sum <- sum(output_file$case) testthat::test_that('case sum from scoring function', { # testthat::skip_on_cran() - testthat::expect_equal(8916, case_sum) + testthat::expect_equal(936, case_sum) }) control_sum <- sum(output_file$control) testthat::test_that('control sum from scoring function', { # testthat::skip_on_cran() - testthat::expect_equal(133060, control_sum) + testthat::expect_equal(11932, control_sum) }) rm_files <- file.remove(temp_files) \ No newline at end of file