###################################################
### code chunk number 10: Cs_mci_009
###################################################
inits <- list(D = coef(kem, what = "par")$D)
kem <- MARSS(dat, model = model.list, inits = inits)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.