[skip style] [skip vbump] Restyle files

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) {