From 59f6ea4574cf28cbf3250add9059247193f65218 Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Mon, 18 Nov 2024 08:20:22 +0100
Subject: [PATCH] add asym

---
 NAMESPACE          |  1 +
 R/methods_panelr.R | 33 +++++++++++++++++++++++++++++++++
 2 files changed, 34 insertions(+)

diff --git a/NAMESPACE b/NAMESPACE
index 6141109a3..5282042a9 100644
--- a/NAMESPACE
+++ b/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)
diff --git a/R/methods_panelr.R b/R/methods_panelr.R
index 60eadfbc2..74e3ad887 100644
--- a/R/methods_panelr.R
+++ b/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 -------------------