fixes, styler

easystats · Nov 19, 2024 · 777c0ee · 777c0ee
1 parent a332cff
commit 777c0ee
Show file tree

Hide file tree

Showing 5 changed files with 10 additions and 6 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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)