#' @export
model_parameters.margins <- function(model, ci = 0.95, exponentiate = FALSE, p_adjust = NULL, verbose = TRUE, ...) {
# Parameters, Estimate and CI
params <- insight::get_parameters(model)
params <- .data_frame(
params,
SE = summary(model)$SE
)
# CI
params <- merge(params, ci(model, ci = ci), by = "Parameter", sort = FALSE)
# Statistic
statistic <- insight::get_statistic(model)
params <- merge(params, statistic, by = "Parameter", sort = FALSE)
# p-value
params <- .data_frame(params, p = summary(model)$p)
# ==== Renaming
if ("Statistic" %in% names(params)) {
names(params) <- gsub(
"Statistic",
gsub("(-|\\s)statistic", "", attr(statistic, "statistic", exact = TRUE)),
names(params),
fixed = TRUE
)
names(params) <- gsub("chi-squared", "Chi2", names(params), fixed = TRUE)
}
names(params) <- gsub("(c|C)hisq", "Chi2", names(params))
names(params) <- gsub("Estimate", "Coefficient", names(params), fixed = TRUE)
# ==== adjust p-values?
if (!is.null(p_adjust)) {
params <- .p_adjust(params, p_adjust, model, verbose)
}
# exponentiate coefficients and SE/CI, if requested
params <- .exponentiate_parameters(params, model, exponentiate)
params <- .add_model_parameters_attributes(
params,
model,
ci,
exponentiate,
p_adjust = p_adjust,
verbose = verbose,
...
)
attr(params, "object_name") <- insight::safe_deparse_symbol(substitute(model))
class(params) <- c("parameters_model", "see_parameters_model", class(params))
params
}
#' @export
ci.margins <- function(x, ci = 0.95, ...) {
.ci_generic(model = x, ci = ci, dof = Inf, ...)
}
#' @export
standard_error.margins <- function(model, ...) {
params <- insight::get_parameters(model)
.data_frame(
Parameter = params$Parameter,
SE = summary(model)$SE
)
}
#' @export
p_value.margins <- function(model, ...) {
params <- insight::get_parameters(model)
.data_frame(
Parameter = params$Parameter,
p = summary(model)$p
)
}
#' @export
format_parameters.margins <- function(model, ...) {
NULL
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.