ocPostprobDist test clean

Author: audreyyeoCH

tests/testthat/test-ocPostprob.R

@@ -172,7 +172,7 @@ test_that("two function calls that differ in parE does not give the same result.
     p1 = 0.2,
     tL = 0.8,
     tU = 0.8,
-    parE = c(1, 1), # weak prior gives more PrGrayZone
+    parE = c(1, 1), # will fail in old code that was hard coded in uniform prior
     sim = 100,
     wiggle = TRUE,
     nnF = c(10, 20, 30)

tests/testthat/test-ocPostprobDist.R

@@ -176,7 +176,7 @@ test_that("two function calls that differ in parE does not give the same result.
     deltaF = 0.2,
     tL = 0.6,
     tU = 0.6,
-    parE = c(10, 4), # will fail in old code that was hard coded in uniform prior
+    parE = c(10, 4),
     parS = c(1, 1),
     sim = 500,
     wiggle = FALSE,
@@ -189,7 +189,7 @@ test_that("two function calls that differ in parE does not give the same result.
     deltaF = input$deltaF,
     tL = input$tL,
     tU = input$tU,
-    parE = c(1, 1),
+    parE = c(1, 1),  # will fail in old code that was hard coded in uniform prior
     parS = input$parS,
     sim = input$sim,
     wiggle = input$wiggle,
@@ -201,7 +201,7 @@ test_that("two function calls that differ in parE does not give the same result.
     deltaF = input$deltaF,
     tL = input$tL,
     tU = input$tU,
-    parE = input$parE,
+    parE = input$parE, # stronger prior gives higher PrEfficacy
     parS = input$parS,
     sim = input$sim,
     wiggle = input$wiggle,

tests/testthat/test-ocRctPostprobDist.R

@@ -256,7 +256,7 @@ test_that("two function calls that differ in parE does not give the same result.
     relativeDelta = input$relativeDelta,
     tL = input$tL,
     tU = input$tU,
-    parE = c(1, 1), # uniform prior allowing data to speak for itself
+    parE = c(1, 1),  # will fail in old code that was hard coded in uniform prior
     parS = input$parS,
     randRatio = input$randRatio,
     sim = input$sim,
@@ -272,7 +272,7 @@ test_that("two function calls that differ in parE does not give the same result.
     relativeDelta = input$relativeDelta,
     tL = input$tL,
     tU = input$tU,
-    parE = input$parE,
+    parE = input$parE, # stronger prior gives higher PrEfficacy
     parS = input$parS,
     randRatio = input$randRatio,
     sim = input$sim,