###################################################
### code chunk number 26: Case_Study_2.Rnw:578-579 (eval = FALSE)
###################################################
## R.model <- ldiag(c("boat", "boat", "plane", "plane", "plane"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.