[skip style] [skip vbump] Restyle files

Author: github-actions[bot]

R/betadiff.R

@@ -29,12 +29,11 @@
 #' @example examples/dbetadiff.R
 #' @export
 dbetadiff <- function(
-  z,
-  parY,
-  parX,
-  eps = .Machine$double.eps,
-  rel.tol = .Machine$double.eps^0.1
-) {
+    z,
+    parY,
+    parX,
+    eps = .Machine$double.eps,
+    rel.tol = .Machine$double.eps^0.1) {
   assert_numeric(
     z,
     min.len = 1,

R/ocRctPostprobDist.R

@@ -19,22 +19,21 @@
 #'  - `nControl` : mean of look size for Control arm.
 #' @keywords internal
 h_get_decisionDist_rct <- function(
-  nnr,
-  nnrE,
-  nnrF,
-  pE,
-  pS,
-  parE = c(1, 1),
-  parS = c(1, 1),
-  tL,
-  tU,
-  deltaE,
-  deltaF,
-  relativeDelta,
-  randRatio = 1,
-  Nmax,
-  orig_nnr
-) {
+    nnr,
+    nnrE,
+    nnrF,
+    pE,
+    pS,
+    parE = c(1, 1),
+    parS = c(1, 1),
+    tL,
+    tU,
+    deltaE,
+    deltaF,
+    relativeDelta,
+    randRatio = 1,
+    Nmax,
+    orig_nnr) {
   assert_numeric(nnr, finite = TRUE, any.missing = FALSE)
   assert_numeric(nnrE, max.len = length(nnr), any.missing = FALSE)
   assert_numeric(nnrF, max.len = length(nnr), any.missing = FALSE)
@@ -197,21 +196,20 @@ h_get_oc_rct <- function(all_sizes, Nmax, nActive, nControl, decision) {
 #' @example examples/ocRctPostprobDist.R
 #' @export
 ocRctPostprobDist <- function(
-  nnE,
-  pE,
-  pS,
-  deltaE,
-  deltaF,
-  relativeDelta = FALSE,
-  tL,
-  tU,
-  parE,
-  parS,
-  randRatio = 1,
-  sim,
-  wiggle = FALSE,
-  nnF = nnE
-) {
+    nnE,
+    pE,
+    pS,
+    deltaE,
+    deltaF,
+    relativeDelta = FALSE,
+    tL,
+    tU,
+    parE,
+    parS,
+    randRatio = 1,
+    sim,
+    wiggle = FALSE,
+    nnF = nnE) {
   assert_numeric(
     nnE,
     min.len = 1,

R/plotBeta.R

@@ -63,13 +63,12 @@ plotBeta <- function(alpha, beta) {
 #' @export
 #' @keywords graphics
 plotBetaDiff <- function(
-  parX, # parameters of control or SOC
-  parY, # parameters of experimental arm
-  go_cut = 0.20, # a meaningful improvement threshold
-  stop_cut = 0.1, # a poor improvement threshold
-  shade = TRUE, # paint the two areas under the curve
-  note = TRUE
-) {
+    parX, # parameters of control or SOC
+    parY, # parameters of experimental arm
+    go_cut = 0.20, # a meaningful improvement threshold
+    stop_cut = 0.1, # a poor improvement threshold
+    shade = TRUE, # paint the two areas under the curve
+    note = TRUE) {
   # show values of the colored area
   assert_numeric(parX, lower = 0, finite = TRUE, any.missing = FALSE)
   assert_numeric(parY, lower = 0, finite = TRUE, any.missing = FALSE)
@@ -102,7 +101,7 @@ plotBetaDiff <- function(
     stop_label
   )
 
-   pbetadiff_plot <- if (shade) {
+  pbetadiff_plot <- if (shade) {
     ggplot2::ggplot(
       data = data,
       mapping = ggplot2::aes(x = grid, y = density)