Summarize posterior draws of screening — ec_screen

Adds summaries of posterior draws of demand to tibble. (using the new demand draw format)

ec_screen_summarise(sc, quantiles = c(0.05, 0.95))

ec_screen_summarize(sc, quantiles = c(0.05, 0.95))

Arguments

sc: tibble containing screening draws in .screendraws
quantiles: Quantiles for Credibility Intervals (default: 90% interval)

Value

Summary of screening probabilities

Examples

# \donttest{
data(icecream)
icecream_est <- icecream %>% vd_est_vdm_screen(R=20,  price_screen=TRUE)
#> Using 16 cores
#>  MCMC in progress 
#> MCMC complete
#>  Total Time Elapsed: 0.00 minutes
#consideration set by respondent
cons_ss <- 
ec_screenprob_sr(icecream, icecream_est) %>%
group_by(id, task)  %>%
  summarise(.screendraws=list(purrr::reduce(.screendraws ,`+`))) %>%
  ec_screen_summarise() %>%
  group_by(id) %>%
  summarise(n_screen=mean(`E(screening)`))
#> Using 16 cores
#> `summarise()` has grouped output by 'id'. You can override using the `.groups`
#> argument.
  # }