fix the missing theta and info

Merck · Jan 2, 2024 · 77f3a6a · 77f3a6a
1 parent 9ef6050
commit 77f3a6a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/gs_design_rd.R b/R/gs_design_rd.R
@@ -204,8 +204,8 @@ gs_design_rd <- function(p_c = tibble::tibble(stratum = "All", rate = .2),
   }
 
   if (h1_spending) {
-    theta1 <- x$theta
-    info1 <- x$info
+    theta1 <- x$theta1
+    info1 <- x$info1
   } else {
     theta1 <- 0
     info1 <- x$info0