#------------------------------------------------------------------------
#Module 5 Segment 3
#------------------------------------------------------------------------
library("RTseries")
# -----------------------------------------------------------------------------------
# -----------------------------------------------------------------------------------
# code for figure on page 5-26
show.true.acfpacf(model=list(ar=c(0.78, 0.2),ma = 0))
# -----------------------------------------------------------------------------------
# code for figure on page 5-27
show.true.acfpacf(model=list(ar=c(1, -0.95), ma = 0))
# -----------------------------------------------------------------------------------
# code for figure on page 5-28
iden.sim(model=list(ar=c(0.78, 0.2)),realization.size=75)
# -----------------------------------------------------------------------------------
# code for figure on page 5-29
iden.sim(model=list(ar=c(0.78, 0.2)),realization.size=300)
# -----------------------------------------------------------------------------------
# code for figure on page 5-30
iden.sim(model=list(ar=c(1, -0.95)),realization.size=75)
# -----------------------------------------------------------------------------------
# code for figure on page 5-31
iden.sim(model=list(ar=c(1, -0.95)),realization.size=300)
# -----------------------------------------------------------------------------------
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.