Update bmcm_stan.R with comment

StatisticsHealthEconomics · Aug 13, 2024 · ceeea27 · ceeea27
1 parent 68982bc
commit ceeea27
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/bmcm_stan.R b/R/bmcm_stan.R
@@ -72,6 +72,7 @@ bmcm_stan <- function(input_data,
 
   formula_cure <- parse_formula(cureformula, input_data)
 
+  # adjust the number of distributions based on the cure model
   if (length(distns) == 1) {
     if (is_hier(formula_cure)) {
       distns <- rep(distns, formula_cure$re_nlevels[1])