###################################################
### code chunk number 14: Cs05_fit.model.tinitx1
###################################################
royale.model.4 <- list(
B = "unconstrained", U = "zero", Q = "diagonal and unequal",
Z = "identity", R = "zero", tinitx = 1
)
kem.4 <- MARSS(z.royale.dat, model = royale.model.4)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.