View source: R/glm_logml_napp.R
glm.logml.napp | R Documentation |
Uses bridge sampling to estimate the logarithm of the marginal likelihood of a GLM under the normalized asymptotic power prior (NAPP).
glm.logml.napp(post.samples, bridge.args = NULL)
post.samples |
output from |
bridge.args |
a |
The function returns a list
with the following objects
"NAPP"
the estimated logarithm of the marginal likelihood
an object of class bridge
or bridge_list
containing the output from using bridgesampling::bridge_sampler()
to compute the logarithm of the marginal likelihood of the normalized asymptotic power prior (NAPP)
Ibrahim, J. G., Chen, M., Gwon, Y., and Chen, F. (2015). The power prior: Theory and applications. Statistics in Medicine, 34(28), 3724–3749.
Gronau, Q. F., Singmann, H., and Wagenmakers, E.-J. (2020). bridgesampling: An r package for estimating normalizing constants. Journal of Statistical Software, 92(10).
if (instantiate::stan_cmdstan_exists()) {
data(actg019)
data(actg036)
## take subset for speed purposes
actg019 = actg019[1:100, ]
actg036 = actg036[1:50, ]
data_list = list(currdata = actg019, histdata = actg036)
formula = cd4 ~ treatment + age + race
family = poisson('log')
d.napp = glm.napp(
formula = formula, family = family,
data.list = data_list,
chains = 1, iter_warmup = 500, iter_sampling = 1000
)
glm.logml.napp(
post.samples = d.napp,
bridge.args = list(silent = TRUE)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.