first test

This is an test R Markdown document. Let’s run two 100-step time series models, MA(1) and AR(1)

```{r timeseries} MA_mean = 2 MA_weight = 0.5 # Generate and plot an MA(1) with parameter .9 # MA <- arima.sim(model=list(order = c(0,0,1), ma = MA_weight), n = 200, mean = MA_mean, # rand.gen = rnorm, sd = 40) MA <- arima.sim(model=list(order = c(0,0,1), ma = MA_weight), n = 200, mean = MA_mean)

AR_param = 0.6 AR_intercept = 3 # Generate and plot an AR(2) with parameters 1.5 and -.75 AR <- arima.sim(model=list(order=c(1,0,0), ar = AR_param), n = 200, mean = AR_intercept)

ts.plot(MA, AR) ```