fix

easystats · Sep 1, 2024 · 1318d54 · 1318d54
1 parent 032d193
commit 1318d54
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/R/find_parameters.R b/R/find_parameters.R
@@ -177,7 +177,7 @@ find_parameters.brmultinom <- find_parameters.multinom
 find_parameters.multinom_weightit <- function(x, flatten = FALSE, ...) {
   params <- stats::coef(x)
   resp <- gsub("(.*)~(.*)", "\\1", names(params))
-  pars <- gsub("(.*)~(.*)", "\\2", names(params))[resp == resp[1]]
+  pars <- list(conditional = gsub("(.*)~(.*)", "\\2", names(params))[resp == resp[1]])
 
   if (flatten) {
     unique(unlist(pars, use.names = FALSE))

diff --git a/tests/testthat/test-weightit.R b/tests/testthat/test-weightit.R
@@ -14,10 +14,11 @@ w.out <- WeightIt::weightit(
 )
 set.seed(123)
 fit3 <- WeightIt::lm_weightit(
-  re78 ~ treat + age + educ, data = lalonde,
+  re78 ~ treat + age + educ,
+  data = lalonde,
   weightit = w.out,
   vcov = "FWB",
-  R = 50, #should use way more
+  R = 50, # should use way more
   fwb.args = list(wtype = "mammen")
 )