131_make_ocPreds_faster (#134)

Co-authored-by: Daniel Sabanes Bove <danielinteractive@users.noreply.github.com>

Author: audreyyeoCH

examples/ocPredprobDist.R

@@ -23,7 +23,7 @@ result <- ocPredprobDist(
   parS = c(5, 25),
   weights = 1,
   weightsS = 1,
-  sim = 50,
+  sim = 15,
   wiggle = FALSE,
   decision1 = TRUE
 )
@@ -57,7 +57,7 @@ result <- ocPredprobDist(
   parS = c(5, 25),
   weights = 1,
   weightsS = 1,
-  sim = 50,
+  sim = 15,
   nnF = c(20, 30),
   wiggle = TRUE,
   decision1 = TRUE
@@ -91,7 +91,7 @@ result <- ocPredprobDist(
   parS = c(5, 25),
   weights = 1,
   weightsS = 1,
-  sim = 50,
+  sim = 15,
   nnF = c(10, 20, 30),
   wiggle = TRUE,
   decision1 = FALSE
@@ -124,7 +124,7 @@ result <- ocPredprobDist(
   parS = c(5, 25),
   weights = 1,
   weightsS = 1,
-  sim = 50,
+  sim = 15,
   nnF = c(10, 20, 30),
   wiggle = TRUE,
   decision1 = FALSE

man/ocPredprobDist.Rd

@@ -85,7 +85,7 @@ test_that("ocPredprobDist gives correct result and list when relativeDelta = FAL
         parS = c(5, 25),
         weights = 1,
         weightsS = 1,
-        sim = 50,
+        sim = 5,
         nnF = c(10, 20, 30),
         wiggle = TRUE,
         decision1 = FALSE
@@ -112,7 +112,7 @@ test_that("ocPredprobDist gives correct result and list when relativeDelta = TRU
     parS = c(5, 25),
     weights = 1,
     weightsS = 1,
-    sim = 50,
+    sim = 5,
     nnF = c(10, 20, 30),
     wiggle = TRUE,
     decision1 = FALSE