simplify

easystats · Jul 9, 2024 · c89147d · c89147d
1 parent 8bb3391
commit c89147d
Showing 1 changed file with 1 addition and 6 deletions.
diff --git a/R/convert_bayesian_to_frequentist.R b/R/convert_bayesian_to_frequentist.R
@@ -208,12 +208,7 @@ convert_bayesian_as_frequentist <- function(model, data = NULL, REML = TRUE) {
   }
 
   fixed_formula <- paste(as.character(formula$conditional)[c(2, 1, 3)], collapse = " ")
-  cond_formula <- stats::as.formula(paste(
-    fixed_formula, random_formula,
-    sep = " + "
-  ))
-
-  cond_formula
+  stats::as.formula(paste(fixed_formula, random_formula, sep = " + "))
 }
 
 #' @rdname convert_bayesian_as_frequentist