Apply automatic stylistic changes

jinseob2kim · Feb 15, 2024 · ed24d3f · ed24d3f
1 parent efdfc30
commit ed24d3f
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/R/forestglm.R b/R/forestglm.R
@@ -136,11 +136,10 @@ TableSubgroupGLM <- function(formula, var_subgroup = NULL, var_cov = NULL, data,
         coefficients()
       pv_int <- round(pvs_int[nrow(pvs_int), ncol(pvs_int)], decimal.pvalue)
       # if (!is.null(xlev) & length(xlev[[1]]) != 2) stop("Categorical independent variable must have 2 levels.")
-      data.design<-data
-      if(family=='binomial'){
+      data.design <- data
+      if (family == "binomial") {
         model.int <- survey::svyglm(as.formula(gsub(xlabel, paste(xlabel, "*", var_subgroup, sep = ""), deparse(formula))), design = data.design, family = quasibinomial())
-      }
-      else{
+      } else {
         model.int <- survey::svyglm(as.formula(gsub(xlabel, paste(xlabel, "*", var_subgroup, sep = ""), deparse(formula))), design = data.design, family = gaussian())
       }
       if (sum(grepl(":", names(coef(model.int)))) > 1) {