ordinal

easystats · Nov 18, 2024 · c579577 · c579577
1 parent 50d510c
commit c579577
Show file tree

Hide file tree

Showing 5 changed files with 86 additions and 58 deletions.
diff --git a/R/methods_DirichletReg.R b/R/methods_DirichletReg.R
@@ -1,18 +1,17 @@
-#' @rdname model_parameters.mlm
 #' @export
 model_parameters.DirichletRegModel <- function(model,
                                                ci = 0.95,
                                                bootstrap = FALSE,
                                                iterations = 1000,
-                                               component = c("all", "conditional", "precision"),
+                                               component = "all",
                                                standardize = NULL,
                                                exponentiate = FALSE,
                                                p_adjust = NULL,
                                                keep = NULL,
                                                drop = NULL,
                                                verbose = TRUE,
                                                ...) {
-  component <- match.arg(component)
+  component <- insight::validate_argument(component, c("all", "conditional", "precision"))
   if (component == "all") {
     merge_by <- c("Parameter", "Component", "Response")
   } else {

diff --git a/R/methods_mlm.R b/R/methods_mlm.R
@@ -20,6 +20,8 @@
 #' @seealso [insight::standardize_names()] to rename
 #'   columns into a consistent, standardized naming scheme.
 #'
+#' @inheritSection model_parameters.zcpglm Model components
+#'
 #' @examplesIf require("brglm2", quietly = TRUE)
 #' data("stemcell", package = "brglm2")
 #' model <- brglm2::bracl(

diff --git a/R/methods_ordinal.R b/R/methods_ordinal.R
@@ -7,7 +7,7 @@ model_parameters.clm2 <- function(model,
                                   ci = 0.95,
                                   bootstrap = FALSE,
                                   iterations = 1000,
-                                  component = c("all", "conditional", "scale"),
+                                  component = "all",
                                   standardize = NULL,
                                   exponentiate = FALSE,
                                   p_adjust = NULL,
@@ -17,7 +17,7 @@ model_parameters.clm2 <- function(model,
                                   drop = NULL,
                                   verbose = TRUE,
                                   ...) {
-  component <- match.arg(component)
+  component <- insight::validate_argument(component, c("all", "conditional", "scale"))
   if (component == "all") {
     merge_by <- c("Parameter", "Component")
   } else {

diff --git a/man/model_parameters.merMod.Rd b/man/model_parameters.merMod.Rd
diff --git a/man/model_parameters.mlm.Rd b/man/model_parameters.mlm.Rd