`> RSiteSearch("generate arima") #~~~~~~~($$$)`

> layout(matrix(1:2))

> a1 <- ar(y)

> y1 <- arima.sim(list(ar=a1$ar), 9600)

> plot(y1, type="l")

> a2 <- arima0(y, order=c(10, 0, 5))

> y2 <- arima.sim(list(ar=a2$coef[1:10], ma=a2$coef[11:15]), 9600)

> plot(y2, type="l")

> layout(matrix(1:2))

> a1 <- ar(y)

> y1 <- arima.sim(list(ar=a1$ar), 9600)

> plot(y1, type="l")

> a2 <- arima0(y, order=c(10, 0, 5))

> y2 <- arima.sim(list(ar=a2$coef[1:10], ma=a2$coef[11:15]), 9600)

> plot(y2, type="l")

## No comments:

Post a Comment