###################################################
### code chunk number 33: Cs30_B-covar
###################################################
B <- matrix(list(0), 5, 5)
diag(B) <- list("B11", "B22", "B33", "B44", "Bfish")
B[1, 2] <- "B12"
B[2, 3] <- "B23"
B[2, 4] <- "B24"
B[4, 2] <- "B42"
B[1:4, 5] <- list(0, 0, "C32", "C42")
print(B)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.