Obtain draws of screening probabilities of choiec alternatives
ec_screenprob_sr(xd, est, cores=NULL)data
ec-model draws
(optional) cores
Draws of screening probabilities of choice alternatives
data(icecream)
icecream_est <- icecream %>% filter(id<10) %>% vd_est_vdm_screen(R=10, price_screen=TRUE)
#> Using 16 cores
#> MCMC in progress
#> MCMC complete
#> Total Time Elapsed: 0.00 minutes
ec_screenprob_sr(icecream %>% filter(id<10), icecream_est)
#> Using 16 cores
#> # A tibble: 1,188 × 9
#> id task alt x p Brand Flavor Size .screendraws
#> * <int> <int> <int> <dbl> <dbl> <fct> <fct> <ord> <list>
#> 1 1 1 1 8 0.998 Store Neapolitan 16 <dbl [1]>
#> 2 1 1 2 0 0.748 Store VanillaBean 16 <dbl [1]>
#> 3 1 1 3 0 1.25 BenNJerry Oreo 16 <dbl [1]>
#> 4 1 1 4 0 0.748 BenNJerry Neapolitan 16 <dbl [1]>
#> 5 1 1 5 0 2.49 HaagenDa RockyRoad 4 <dbl [1]>
#> 6 1 1 6 0 1.25 HaagenDa Oreo 16 <dbl [1]>
#> 7 1 1 7 0 1.12 BlueBunny Oreo 16 <dbl [1]>
#> 8 1 1 8 0 1.99 BlueBunny Neapolitan 4 <dbl [1]>
#> 9 1 1 9 0 0.622 Breyers RockyRoad 16 <dbl [1]>
#> 10 1 1 10 0 3.49 Breyers Vanilla 4 <dbl [1]>
#> # … with 1,178 more rows