clean

Genentech · Oct 11, 2024 · fc3bd8e · fc3bd8e
1 parent bb749b9
commit fc3bd8e
Show file tree

Hide file tree

Showing 3 changed files with 123 additions and 10 deletions.
diff --git a/examples/plotBounds.R b/examples/plotBounds.R
@@ -1,9 +1 @@
 # examples
-plotBounds(boundsPredprob(
-  nvec = c(10, 20, 30, 40), p = 0.20, tT = 0.80,
-  phiL = 0.10, phiU = 0.90, a = 1, b = 1
-), yt = "x")
-plotBounds(boundsPredprob(
-  nvec = c(10, 20, 30, 40), p = 0.20, tT = 0.80,
-  phiL = 0.10, phiU = 0.90, a = 1, b = 1
-), yt = "p")
diff --git a/man/ocPredprob.Rd b/man/ocPredprob.Rd
diff --git a/tests/testthat/test-boundsPredprob.R b/tests/testthat/test-boundsPredprob.R
@@ -1,4 +1,4 @@
-# boundsPredProb ----
+# boundsPredprob ----
 test_that("boundsPredprob gives correct result and when default weight is not assigned", {
   result_weights <- boundsPredprob(
     looks = c(10, 20, 30, 40),
@@ -40,7 +40,7 @@ test_that("boundsPredprob gives correct result and when default weight is not as
   expect_equal(result$LciU, c(0.15, 0.1773, 0.1663, 0.1424))
 })
 
-test_that("boundsPredprob with Beta Mixture Priors give correct results with predprob", {
+test_that("boundsPredprob with Beta Mixture Priors give correct results", {
   result <- boundsPredprob(
     looks = c(10, 20),
     p0 = 0.20,