clean

Genentech · Jan 9, 2025 · e38b84f · e38b84f
1 parent 3a65c36
commit e38b84f
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/R/plotBeta.R b/R/plotBeta.R
@@ -87,7 +87,7 @@ plotBetaDiff <- function(parY, # parameters of experimental arm
   )
 
   Go_label <- paste("P(Go) is", round(Go_auc$value * 100, digits = 2), "%")
-  Stop_label <- paste("P(S) is", round(Stop_auc$value * 100, digits = 2), "%")
+  Stop_label <- paste("P(Stop) is", round(Stop_auc$value * 100, digits = 2), "%")
   plot_title <- paste("According to Beta difference density", Go_label, "and", Stop_label)
 
   if (shade == TRUE) {

diff --git a/examples/plotBetaDiff.R b/examples/plotBetaDiff.R
@@ -6,7 +6,7 @@ plotBetaDiff(
   parY = parY,
   parX = parX,
   Go_cut = 0.3,
-  Stop_cut = 0.1, # below a difference of 10%, is an unsuccesful trial
+  Stop_cut = 0.1, # below a difference of 10%, is an unsuccessful trial
   shade = TRUE,
   note = TRUE
 )
@@ -17,7 +17,7 @@ plotBetaDiff(
   parY = c(1, 1), # prior  parameters for experimental arm
   parX = c(1, 1), # prior parameters for control or SOC arm
   Go_cut = 0.3,
-  Stop_cut = 0.1, # below a difference of 10%, is an unsuccesful trial
+  Stop_cut = 0.1, # below a difference of 10%, is an unsuccessful trial
   shade = TRUE,
   note = TRUE
 )
diff --git a/man/plotBetaDiff.Rd b/man/plotBetaDiff.Rd