###################################################
### code chunk number 3: Cs101_structTS-level
###################################################
y <- window(treering, start = 0, end = 20)
fit1 <- StructTS(y, type = "level")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.