# NOT RUN {
# }
# NOT RUN {
fit <- fit_Bayesian_FROC(BayesianFROC::dd)
e <- rstan::extract(fit)
# Check the retrun value is desired one.
apply(e$z, 2, var) == get_posterior_variance(fit,z)
var(e$m) == get_posterior_variance(fit,m)
var(e$v) == get_posterior_variance(fit,v)
# }
# NOT RUN {
#donttest
# }
Run the code above in your browser using DataLab