###################################################
### code chunk number 25: Case_Study_2.Rnw:573-575 (eval = FALSE)
###################################################
## R.model <- matrix(list(0), 5, 5)
## diag(R.model) <- c("boat", "boat", "plane", "plane", "plane")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.