ec_estimates_SIGMA {echoice2}

Obtain posterior mean estimates of upper level covariance

Description

Obtain posterior mean estimates of upper level covariance

Usage

ec_estimates_SIGMA(est)

Arguments

est

is an 'echoice2' draw object (list)

Value

estimates of upper level covariance

Examples

data(icecream)
#run MCMC sampler (use way more than 20 draws for actual use)
icecream_est <- icecream %>% dplyr::filter(id<50) %>% vd_est_vdm(R=20, cores=2)
icecream_est %>% ec_estimates_SIGMA %>% round(2)