clean

Genentech · Jan 15, 2024 · dbb53f4 · dbb53f4
1 parent cc31aee
commit dbb53f4
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/design/design-doc_ocPredprob.Rmd b/design/design-doc_ocPredprob.Rmd
@@ -362,8 +362,8 @@ h_get_oc_predprob <- function(all_sizes, nnr, decision, nnrE, nnrF) {
 ## ocPredprob
 
 ```{r cars}
-ocPostprob <- function(nnE, truep, p0, p1, tL, tU, parE = c(1, 1),
-                       sim = 50000, wiggle = FALSE, nnF = nnE) {
+ocPredprob <- function(nnE, truep, p0, p1, tL, tU, parE = c(1, 1),
+                       sim = 50000, wiggle = FALSE, nnF = nnE, decision1 = TRUE) {
   nn <- sort(unique(c(nnF, nnE)))
   assert_number(sim, lower = 1, finite = TRUE)
   assert_flag(wiggle)
@@ -383,7 +383,7 @@ ocPostprob <- function(nnE, truep, p0, p1, tL, tU, parE = c(1, 1),
       nnrF <- nnF
     }
     nnr <- unique(c(nnrE, nnrF))
-    if (is.na(decision[k]) && (j <= length(nnr)) && decision == "default") {
+    if (is.na(decision[k]) && (j <= length(nnr)) && decision1 == TRUE) {
       tmp <- h_get_decision_one_predprob(
         nnr = nnr,
         truep = truep, p0 = p0, p1 = p1,