###################################################
### code chunk number 11: Cs08_setupR
###################################################
R.vals <- list(
"r11", 0, 0, 0, 0,
0, "r22", 0, 0, 0,
0, 0, "r33", 0, 0,
0, 0, 0, "r44", 0,
0, 0, 0, 0, "r55"
)
R <- matrix(R.vals, nrow = N.ts, ncol = N.ts, byrow = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.