From b1bc45f58acdf7bda24d7e99a9d6bcdec76e9eb8 Mon Sep 17 00:00:00 2001
From: "Zhao, Yujie" <yujie.zhao@merck.com>
Date: Wed, 31 Jan 2024 11:02:30 -0500
Subject: [PATCH] fix the bug on `p_obs`

---
 R/calc_seq_p.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/calc_seq_p.R b/R/calc_seq_p.R
index a1d65cf..6033cad 100644
--- a/R/calc_seq_p.R
+++ b/R/calc_seq_p.R
@@ -129,7 +129,7 @@ calc_seq_p <- function(
 
     p_diff <- NULL
     for (hhh in all_hypothesis) {
-      p_diff_new <- p_obs[[hhh]] - ans[[hhh]]
+      p_diff_new <- (p_obs %>% filter(analysis <= test_analysis))[[hhh]] - ans[[hhh]]
       p_diff <- c(p_diff, p_diff_new)
     }