Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(echo = TRUE, fig.align = "center")
## ---- eval = FALSE------------------------------------------------------------
# library(postpack)
# data(cjs)
## ---- echo = FALSE------------------------------------------------------------
library(postpack)
load("../data/cjs.rda")
## -----------------------------------------------------------------------------
post_dim(cjs)
## -----------------------------------------------------------------------------
get_params(cjs)
## -----------------------------------------------------------------------------
get_params(cjs, type = "base_index")
## -----------------------------------------------------------------------------
post_summ(cjs, params = c("sig_B0", "sig_B1"))
## -----------------------------------------------------------------------------
post_summ(cjs, c("sig_B0", "sig_B1"), digits = 3, probs = c(0.025, 0.25, 0.5, 0.75, 0.975))
## -----------------------------------------------------------------------------
post_summ(cjs, "b0")
## -----------------------------------------------------------------------------
post_summ(cjs, "^B", mcse = TRUE)
## -----------------------------------------------------------------------------
post_summ(cjs, "^B", by_chain = TRUE)
## -----------------------------------------------------------------------------
post_summ(cjs, c("sig_B0", "sig_B1"), neff = TRUE, Rhat = TRUE)
## ---- fig.width = 4, fig.height = 6-------------------------------------------
diag_plots(cjs, params = "SIG")
## -----------------------------------------------------------------------------
b0_samps = post_subset(cjs, "b0")
## -----------------------------------------------------------------------------
b0_samps = post_subset(cjs, "b0", matrix = TRUE)
## -----------------------------------------------------------------------------
head(post_subset(cjs, "b0", matrix = TRUE, chains = TRUE, iters = TRUE))
## ---- message = FALSE---------------------------------------------------------
# check out param names
get_params(cjs)
# remove all SIG nodes
cjs2 = post_remove(cjs, "SIG", ask = FALSE)
# did it work?
get_params(cjs2)
## -----------------------------------------------------------------------------
(SIG_ests = post_summ(cjs, "SIG", digits = 2))
## -----------------------------------------------------------------------------
array_format(SIG_ests["mean",])
## ---- message = FALSE---------------------------------------------------------
cjs2 = post_remove(cjs, "SIG[2,1]", ask = FALSE)
array_format(post_summ(cjs2, "SIG")["mean",])
## ---- messag = FALSE----------------------------------------------------------
SIG_decomp = vcov_decomp(cjs, param = "SIG")
## -----------------------------------------------------------------------------
class(SIG_decomp)
## -----------------------------------------------------------------------------
post_dim(cjs) == post_dim(SIG_decomp)
## -----------------------------------------------------------------------------
get_params(SIG_decomp, type = "base_index")
## -----------------------------------------------------------------------------
array_format(post_summ(SIG_decomp, "rho")["50%",])
## ---- eval = FALSE------------------------------------------------------------
# post_thin(cjs, keep_percent = 0.25)
## -----------------------------------------------------------------------------
cjs = post_bind(post1 = cjs, post2 = SIG_decomp)
## -----------------------------------------------------------------------------
get_params(cjs)
## -----------------------------------------------------------------------------
post_summ(cjs, "sig")
## -----------------------------------------------------------------------------
# extract the raw samples from cjs in matrix form
b0_samps = post_subset(cjs, "b0", matrix = TRUE)
# perform a derived quantity calculation
eb0_samps = exp(b0_samps)/(1 + exp(b0_samps))
## -----------------------------------------------------------------------------
colnames(eb0_samps) = paste0("eb0[", 1:5, "]")
## -----------------------------------------------------------------------------
cjs = post_bind(post1 = cjs, post2 = eb0_samps)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.