###################################################
### code chunk number 5: Z.model.1
###################################################
Z1 <- factor(c("wa.or", "wa.or", rep("ps", 4),
"ca", "ca", "wa.or", "wa.or", "bc"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.