Individual assignment summary
Examples
# set up input data and run multistage model
msgsi_dat <-
prep_msgsi_data(mixture_data = mix,
baseline1_data = base_templin, baseline2_data = base_yukon,
pop1_info = templin_pops211, pop2_info = yukon_pops50, sub_group = 3:5)
#> Compiling input data, may take a minute or two...
#> Time difference of 9.640479 secs
# run model
msgsi_out <- msgsi_mdl(msgsi_dat, nreps = 25, nburn = 15, thin = 1, nchains = 1)
#> Running model (and the category is... Linen Vs. Silk!)
#> Time difference of 1.537729 secs
#> April-25-2025 19:09
# individual assignment summary
ind_iden <- indiv_assign(msgsi_out, msgsi_dat)