add asym

Author: strengejacke

NAMESPACE

@@ -192,6 +192,7 @@ S3method(model_parameters,anova)
 S3method(model_parameters,anova.rms)
 S3method(model_parameters,aov)
 S3method(model_parameters,aovlist)
+S3method(model_parameters,asym)
 S3method(model_parameters,averaging)
 S3method(model_parameters,bamlss)
 S3method(model_parameters,bayesQR)

R/methods_panelr.R

@@ -53,6 +53,39 @@ model_parameters.wbm <- function(model,
 model_parameters.wbgee <- model_parameters.wbm
 
 
+#' @export
+model_parameters.asym <- function(model,
+                                  ci = 0.95,
+                                  ci_method = NULL,
+                                  bootstrap = FALSE,
+                                  iterations = 1000,
+                                  standardize = NULL,
+                                  exponentiate = FALSE,
+                                  p_adjust = NULL,
+                                  summary = getOption("parameters_summary", FALSE),
+                                  include_info = getOption("parameters_info", FALSE),
+                                  keep = NULL,
+                                  drop = NULL,
+                                  verbose = TRUE,
+                                  ...) {
+  params <- model_parameters.default(
+    model,
+    ci = ci,
+    ci_method = ci_method,
+    bootstrap = bootstrap,
+    iterations = iterations,
+    standardize = standardize,
+    exponentiate = exponentiate,
+    p_adjust = p_adjust,
+    include_info = include_info,
+    keep = keep,
+    drop = drop,
+    verbose = verbose,
+    ...
+  )
+  attr(params, "no_caption") <- TRUE
+  params
+}
 
 
 # standard errors -------------------