From c89147d2c1ba6bd177da1c61c8be56c6dcd8834e Mon Sep 17 00:00:00 2001 From: Daniel Date: Tue, 9 Jul 2024 11:22:14 +0200 Subject: [PATCH] simplify --- R/convert_bayesian_to_frequentist.R | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/R/convert_bayesian_to_frequentist.R b/R/convert_bayesian_to_frequentist.R index 540d97852..b4f7a66b5 100644 --- 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