Пусть fit
будет stanfit
объектом. Затем я могу извлечь оценки параметра AAA
следующим образом:
Ожидаемый A Posterior
EAP <- as.data.frame(summary(fit)[[1]])["AAA","mean"]
95% доверительный интервал
lower.CI <- as.data.frame(summary(fit)[[1]])["AAA","2.5%"]
upper.CI <- as.data.frame(summary(fit)[[1]])["AAA","97.5%"]
Но я не уверен, это канонический метод? Если есть более простой код, дайте мне знать.
Меморандум о взаимопонимании
EAP
EAP <- get_posterior_mean(fit,par=c("AAA"))