From 177a1f1cef16b5a59922d0d27f36849cfbc3ca4d Mon Sep 17 00:00:00 2001
From: mischko <mhem@mailbox.org>
Date: Sat, 26 Oct 2024 14:18:18 +0200
Subject: [PATCH] fix wilcox akp example

---
 R/utils.R              | 1 +
 man/wilcox_akp_test.Rd | 1 +
 2 files changed, 2 insertions(+)

diff --git a/R/utils.R b/R/utils.R
index 417f012..02fcaa6 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -120,6 +120,7 @@ lm_age <- function(data, variable) {
 #'   value = c(10.1, 20.3, 30.5, 40.7, 50.9, 60.1, 70.3, 80.5, 90.7, 100.9),
 #'   sex = c("M", "F", "M", "F", "M", "F", "M", "F", "M", "F")
 #' )
+#' wilcox_akp_test(df, var = "value")
 #' @export
 wilcox_akp_test <- function(data, var) {
   if (!is.numeric(data[[var]])) {
diff --git a/man/wilcox_akp_test.Rd b/man/wilcox_akp_test.Rd
index f2b1248..c8753ff 100644
--- a/man/wilcox_akp_test.Rd
+++ b/man/wilcox_akp_test.Rd
@@ -22,4 +22,5 @@ df <- data.frame(
   value = c(10.1, 20.3, 30.5, 40.7, 50.9, 60.1, 70.3, 80.5, 90.7, 100.9),
   sex = c("M", "F", "M", "F", "M", "F", "M", "F", "M", "F")
 )
+wilcox_akp_test(df, var = "value")
 }