Nothing
#' Format the name of the degrees-of-freedom adjustment methods
#'
#' Format the name of the degrees-of-freedom adjustment methods.
#'
#' @param method Name of the method.
#' @param approx_string,dof_string Suffix added to the name of the method in
#' the returned string.
#'
#' @examples
#' library(parameters)
#'
#' format_df_adjust("kenward")
#' format_df_adjust("kenward", approx_string = "", dof_string = " DoF")
#' @return A formatted string.
#' @export
format_df_adjust <- function(method,
approx_string = "-approximated",
dof_string = " degrees of freedom") {
method <- tolower(method)
out <- switch(method,
kr = ,
`kenward-rogers` = ,
`kenward-roger` = ,
kenward = "Kenward-Roger",
ml1 = "m-l-1",
betwithin = ,
bw = "Between-within",
fit = "Residual",
boot = "Bootstrapped",
insight::format_capitalize(method)
)
paste0(out, approx_string, dof_string)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.