| nsamples.gMAP | R Documentation |
Return the number of posterior samples
## S3 method for class 'gMAP'
nsamples(object, ...)
object |
fitted model object |
... |
not used in this function |
## Setting up dummy sampling for fast execution of example
## Please use 4 chains and 20x more warmup & iter in practice
.user_mc_options <- options(RBesT.MC.warmup=50, RBesT.MC.iter=100,
RBesT.MC.chains=2, RBesT.MC.thin=1)
set.seed(34563)
map_AS <- gMAP(cbind(r, n - r) ~ 1 | study,
family = binomial,
data = AS,
tau.dist = "HalfNormal", tau.prior = 1,
beta.prior = 2
)
nsamples(map_AS)
## Recover user set sampling defaults
options(.user_mc_options)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.