diff --git a/R/methods_brglm2.R b/R/methods_brglm2.R index e7f3aa4ce..acfd9a1c5 100644 --- a/R/methods_brglm2.R +++ b/R/methods_brglm2.R @@ -160,10 +160,17 @@ model_parameters.multinom <- function(model, exponentiate = FALSE, p_adjust = NULL, summary = getOption("parameters_summary", FALSE), + include_info = getOption("parameters_info", FALSE), keep = NULL, drop = NULL, verbose = TRUE, ...) { + ## TODO remove deprecated later + if (!missing(summary)) { + .deprecated_warning("summary", "include_info", verbose) + include_info <- summary + } + model_parameters.bracl( model, ci = ci, @@ -173,7 +180,7 @@ model_parameters.multinom <- function(model, standardize = standardize, exponentiate = exponentiate, p_adjust = p_adjust, - summary = summary, + include_info = include_info, keep = keep, drop = drop, verbose = verbose, diff --git a/R/methods_fixest.R b/R/methods_fixest.R index 2450b028e..ddc7c3c49 100644 --- a/R/methods_fixest.R +++ b/R/methods_fixest.R @@ -132,12 +132,19 @@ model_parameters.fixest_multi <- function(model, exponentiate = FALSE, p_adjust = NULL, summary = getOption("parameters_summary", FALSE), + include_info = getOption("parameters_info", FALSE), keep = NULL, drop = NULL, verbose = TRUE, vcov = NULL, vcov_args = NULL, ...) { + ## TODO remove deprecated later + if (!missing(summary)) { + .deprecated_warning("summary", "include_info", verbose) + include_info <- summary + } + # iterate over responses out <- lapply( model, @@ -149,7 +156,7 @@ model_parameters.fixest_multi <- function(model, standardize = standardize, exponentiate = exponentiate, p_adjust = p_adjust, - summary = summary, + include_info = include_info, keep = keep, drop = drop, verbose = verbose, diff --git a/R/methods_systemfit.R b/R/methods_systemfit.R index 9edd008de..4df115737 100644 --- a/R/methods_systemfit.R +++ b/R/methods_systemfit.R @@ -8,10 +8,17 @@ model_parameters.systemfit <- function(model, exponentiate = FALSE, p_adjust = NULL, summary = FALSE, + include_info = getOption("parameters_info", FALSE), keep = NULL, drop = NULL, verbose = TRUE, ...) { + ## TODO remove deprecated later + if (!missing(summary)) { + .deprecated_warning("summary", "include_info", verbose) + include_info <- summary + } + out <- .model_parameters_generic( model = model, ci = ci, @@ -24,7 +31,7 @@ model_parameters.systemfit <- function(model, p_adjust = p_adjust, keep_parameters = keep, drop_parameters = drop, - summary = summary, + include_info = include_info, ... )