###################################################
### code chunk number 12: Cs301_structTS-bsm
###################################################
y <- log10(UKgas)
fit1 <- StructTS(y, type = "BSM")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.