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 1/2] [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) {

From fef3613da49d5ccd93e889219a879c3be0a5b78d Mon Sep 17 00:00:00 2001
From: "27856297+dependabot-preview[bot]@users.noreply.github.com"
 <27856297+dependabot-preview[bot]@users.noreply.github.com>
Date: Thu, 19 Sep 2024 19:37:53 +0000
Subject: [PATCH 2/2] [skip roxygen] [skip vbump] Roxygen Man Pages Auto Update

---
 man/glm_makeup.Rd | 28 ++++++++++++++++++++++------
 1 file changed, 22 insertions(+), 6 deletions(-)

diff --git a/man/glm_makeup.Rd b/man/glm_makeup.Rd
index f2b707d..df44875 100644
--- a/man/glm_makeup.Rd
+++ b/man/glm_makeup.Rd
@@ -2,16 +2,32 @@
 % Please edit documentation in R/binary-helper.R
 \name{glm_makeup}
 \alias{glm_makeup}
-\title{Title}
+\title{Helper function to summarize outputs from glm fit}
 \usage{
 glm_makeup(binobj, legend = "before matching", weighted = FALSE)
 }
 \arguments{
-\item{weighted}{}
-}
-\value{
-a dataframe
+\item{binobj}{returned object from \code{stats::glm}}
+
+\item{legend}{label to indicate the binary fit}
+
+\item{weighted}{logical flag indicating whether weights have been applied in the glm fit}
 }
 \description{
-Title
+Helper function to summarize outputs from glm fit
+}
+\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")
+pseudo_adrs$RESPONSE <- as.numeric(pseudo_adrs$RESPONSE)
+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)
 }