From 64acbbfadd0ffb9847fb0a4390678cbb6a68f71c Mon Sep 17 00:00:00 2001
From: Cory McCartan <cory.mccartan@gmail.com>
Date: Wed, 10 May 2023 18:59:27 -0400
Subject: [PATCH] birdie doc + defaults

---
 R/fit_helpers.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/fit_helpers.R b/R/fit_helpers.R
index 441e5da..2ae838e 100644
--- a/R/fit_helpers.R
+++ b/R/fit_helpers.R
@@ -148,8 +148,8 @@ check_make_prior <- function(prior, model, outcomes, races) {
             )
         } else if (model == "mmm") {
             prior = list(
-                scale_sigma = 0.2,
-                scale_beta = 1.0
+                scale_sigma = rep(0.1, n_r),
+                scale_beta = rep(0.2, n_r)
             )
 
             cli_inform(c("Using default prior for Pr(X | R):",