###################################################
### code chunk number 17: Cs15_model-pan1
###################################################
Z <- factor(c(1, 1, 1, 1, 1))
kem <- MARSS(dat, model = list(Z = Z))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.