From 777c0ee9d7bf14830b7038cf5193930f7411aa5d Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Tue, 19 Nov 2024 11:20:11 +0100
Subject: [PATCH] fixes, styler

---
 R/methods_brms.R                             | 2 +-
 inst/WORDLIST                                | 4 ++++
 pkgdown/_pkgdown.yml                         | 2 +-
 tests/testthat/test-model_parameters.anova.R | 2 +-
 tests/testthat/test-pretty_names.R           | 6 +++---
 5 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/R/methods_brms.R b/R/methods_brms.R
index 6ed2dcdab..c6eff080c 100644
--- a/R/methods_brms.R
+++ b/R/methods_brms.R
@@ -3,7 +3,7 @@
 #'
 #' @description
 #' Model parameters from Bayesian models. This function internally calls
-#' [`bayestestR::describe_posterior()`] to get the relvant information for
+#' [`bayestestR::describe_posterior()`] to get the relevant information for
 #' the output.
 #'
 #' @param model Bayesian model (including SEM from **blavaan**. May also be
diff --git a/inst/WORDLIST b/inst/WORDLIST
index 70fddfdf6..5d922bcb6 100644
--- a/inst/WORDLIST
+++ b/inst/WORDLIST
@@ -13,6 +13,7 @@ BMJ
 Bayarri
 BayesFM
 BayesFactor
+BFBayesFactor
 Bentler
 Bergh
 Biometrics
@@ -38,6 +39,7 @@ Davison
 De
 Delacre
 DirichletReg
+DirichletRegModel
 DoF
 DoFs
 Dom
@@ -215,6 +217,7 @@ ci
 clubSandwich
 cmprsk
 countreg
+clm
 cplm
 datanovia
 datawizard
@@ -287,6 +290,7 @@ maxLik
 mblogit
 mclogit
 mclust
+mjoint
 meaned
 merDeriv
 merMod
diff --git a/pkgdown/_pkgdown.yml b/pkgdown/_pkgdown.yml
index 2b28fe803..7a15fcb92 100644
--- a/pkgdown/_pkgdown.yml
+++ b/pkgdown/_pkgdown.yml
@@ -31,7 +31,7 @@ reference:
       - model_parameters.mira
       - model_parameters.PCA
       - model_parameters.principal
-      - model_parameters.stanreg
+      - model_parameters.brmsfit
       - model_parameters.BFBayesFactor
       - model_parameters.rma
       - model_parameters.htest
diff --git a/tests/testthat/test-model_parameters.anova.R b/tests/testthat/test-model_parameters.anova.R
index 3dbe00513..9e03f2966 100644
--- a/tests/testthat/test-model_parameters.anova.R
+++ b/tests/testthat/test-model_parameters.anova.R
@@ -281,7 +281,7 @@ withr::with_package(
   "survey",
   test_that("anova survey", {
     data(api, package = "survey")
-    dclus2 <<- survey::svydesign(id =  ~dnum + snum, weights =  ~ pw, data = apiclus2)
+    dclus2 <<- survey::svydesign(id = ~ dnum + snum, weights = ~pw, data = apiclus2)
     model0 <- survey::svyglm(
       I(sch.wide == "Yes") ~ ell * meals,
       design = dclus2,
diff --git a/tests/testthat/test-pretty_names.R b/tests/testthat/test-pretty_names.R
index 696fac6e8..d7fb44d57 100644
--- a/tests/testthat/test-pretty_names.R
+++ b/tests/testthat/test-pretty_names.R
@@ -47,9 +47,9 @@ withr::with_options(
     b <- runif(8, -1, 1)
     Y <- rbinom(N, 1, prob = plogis(
       b[1] + b[2] * X +
-      b[3] * (M == "b") + b[4] * (M == "b") + b[5] * (M == "c") +
-      b[6] * X * (M == "a") + b[7] * X + (M == "b") +
-      b[8] * X * (M == "c")
+        b[3] * (M == "b") + b[4] * (M == "b") + b[5] * (M == "c") +
+        b[6] * X * (M == "a") + b[7] * X + (M == "b") +
+        b[8] * X * (M == "c")
     ))
     dat <- data.frame(Y, X, M, stringsAsFactors = FALSE)
     mod <- glm(Y ~ X * M, data = dat, family = binomial)