remove unnecessary assertion (not needed inside function), rerun docs

Genentech · Dec 15, 2023 · c444912 · c444912
1 parent 4773aff
commit c444912
Show file tree

Hide file tree

Showing 3 changed files with 24 additions and 16 deletions.
diff --git a/R/predprobDist.R b/R/predprobDist.R
@@ -40,7 +40,6 @@ NULL
 #'  and trial success indicators.
 #'
 #' @keywords internal
-
 h_predprobdist_single_arm <- function(x,
                                       mE,
                                       n,
@@ -71,8 +70,6 @@ h_predprobdist_single_arm <- function(x,
     activeBetamixPost,
     dbetabinomMix(x = 0:mE, m = mE, par = par, weights = weights)
   )
-  assert_numeric(posterior_y, lower = 0, upper = 1, finite = TRUE, any.missing = FALSE)
-  assert_numeric(density_y, lower = 0, upper = 1, finite = TRUE, any.missing = FALSE)
   list(
     result = sum(density_y * (posterior_y > thetaT)),
     table = data.frame(
@@ -85,7 +82,6 @@ h_predprobdist_single_arm <- function(x,
   )
 }
 
-
 #' The predictive probability of success in two-arm studies.
 #'
 #' The helper function to generate the predictive probability of success
@@ -109,7 +105,6 @@ h_predprobdist_single_arm <- function(x,
 #'  and `success`for trial success indicators.
 #'
 #' @keywords internal
-
 h_predprobdist <- function(x,
                            n,
                            xS,

diff --git a/man/oc2.Rd b/man/oc2.Rd
diff --git a/man/oc3.Rd b/man/oc3.Rd