###################################################
### code chunk number 13: Cs_201_mar2-sim
###################################################
TT <- 50
true.2 <- c(r = 0, b1 = -1.5, b2 = -0.75, q = 1)
temp1 <- arima.sim(n = TT, list(ar = true.2[c("b1", "b2")]),
sd = sqrt(true.2["q"]))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.