diff --git a/tests/testthat/test_inference.R b/tests/testthat/test_inference.R index e433eb7..7442feb 100644 --- a/tests/testthat/test_inference.R +++ b/tests/testthat/test_inference.R @@ -19,13 +19,13 @@ generate_test_result <- function(n = 100, p = 20, L = 2, seed = 42) { if (L == 1) { # Single trait case - true_beta[5, 1] <- 0.5 # SNP5 affects the trait - true_beta[10, 1] <- 0.3 # SNP10 also affects the trait + true_beta[5, 1] <- 0.7 # SNP5 affects the trait + true_beta[10, 1] <- 0.6 # SNP10 also affects the trait } else { # Multi-trait case - true_beta[5, 1] <- 0.5 # SNP5 affects trait 1 - true_beta[5, 2] <- 0.4 # SNP5 also affects trait 2 (colocalized) - true_beta[10, 2] <- 0.3 # SNP10 only affects trait 2 + true_beta[5, 1] <- 0.7 # SNP5 affects trait 1 + true_beta[5, 2] <- 0.6 # SNP5 also affects trait 2 (colocalized) + true_beta[10, 2] <- 0.5 # SNP10 only affects trait 2 } # Generate Y with some noise diff --git a/tests/testthat/test_utils.R b/tests/testthat/test_utils.R index e3bd354..11fda10 100644 --- a/tests/testthat/test_utils.R +++ b/tests/testthat/test_utils.R @@ -19,13 +19,13 @@ generate_test_result <- function(n = 100, p = 20, L = 2, seed = 42) { if (L == 1) { # Single trait case - true_beta[5, 1] <- 0.5 # SNP5 affects the trait - true_beta[10, 1] <- 0.3 # SNP10 also affects the trait + true_beta[5, 1] <- 0.7 # SNP5 affects the trait + true_beta[10, 1] <- 0.6 # SNP10 also affects the trait } else { # Multi-trait case - true_beta[5, 1] <- 0.5 # SNP5 affects trait 1 - true_beta[5, 2] <- 0.4 # SNP5 also affects trait 2 (colocalized) - true_beta[10, 2] <- 0.3 # SNP10 only affects trait 2 + true_beta[5, 1] <- 0.7 # SNP5 affects trait 1 + true_beta[5, 2] <- 0.6 # SNP5 also affects trait 2 (colocalized) + true_beta[10, 2] <- 0.5 # SNP10 only affects trait 2 } # Generate Y with some noise