###################################################
### code chunk number 6: Cs_04_univDLMobs
###################################################
# for observation eqn
Z <- array(NA, c(1, m, TT)) # NxMxT; empty for now
Z[1, 1, ] <- rep(1, TT) # Nx1; 1's for intercept
Z[1, 2, ] <- CUI.z # Nx1; regr variable
A <- matrix(0) # 1x1; scalar = 0
R <- matrix("r") # 1x1; scalar = r
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.