library(birdie)
data(pseudo_vf)
r_probs = bisg(~ nm(last_name) + zip(zip), data=pseudo_vf)
r_probs2 = bisg(~ nm(last_name) + zip(zip), data=pseudo_vf[1:10,])
r_probs[1,]
#> # A tibble: 1 × 6
#> pr_white pr_black pr_hisp pr_asian pr_aian pr_other
#> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 0.956 0.00371 0.0103 0.000674 0.00886 0.0202
r_probs2[1,]
#> # A tibble: 1 × 6
#> pr_white pr_black pr_hisp pr_asian pr_aian pr_other
#> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 0.941 0.00319 0.00909 0.000810 0.0248 0.0209
