From 0a0393eb4063f22ef83d9a887528c2a90459b296 Mon Sep 17 00:00:00 2001
From: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Date: Thu, 19 Sep 2024 19:36:43 +0000
Subject: [PATCH] [skip style] [skip vbump] Restyle files

---
 R/binary-helper.R | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/R/binary-helper.R b/R/binary-helper.R
index 6d2e2aa..9fc76fc 100644
--- a/R/binary-helper.R
+++ b/R/binary-helper.R
@@ -94,18 +94,18 @@ get_pseudo_ipd_binary <- function(binary_agd, format = c("stacked", "unstacked")
 #' @examples
 #' data(adrs_sat)
 #' pseudo_adrs <- get_pseudo_ipd_binary(
-#' binary_agd = data.frame(
-#' ARM = rep("B", 2),
-#' RESPONSE = c("YES", "NO"),
-#' COUNT = c(280, 120)
-#' ),
-#' format = "stacked")
+#'   binary_agd = data.frame(
+#'     ARM = rep("B", 2),
+#'     RESPONSE = c("YES", "NO"),
+#'     COUNT = c(280, 120)
+#'   ),
+#'   format = "stacked"
+#' )
 #' pseudo_adrs$RESPONSE <- as.numeric(pseudo_adrs$RESPONSE)
-#' combined_data <- rbind(adrs_sat[,c("USUBJID", "ARM", "RESPONSE")], pseudo_adrs)
+#' combined_data <- rbind(adrs_sat[, c("USUBJID", "ARM", "RESPONSE")], pseudo_adrs)
 #' combined_data$ARM <- as.factor(combined_data$ARM)
 #' binobj_dat <- stats::glm(RESPONSE ~ ARM, combined_data, family = binomial("logit"))
 #' glm_makeup(binobj_dat)
-
 glm_makeup <- function(binobj, legend = "before matching", weighted = FALSE) {
   ARM <- levels(binobj$data$ARM)
   if (!weighted) {