Chapter 25 Predictions using ARIMA for Battery - Simple Assault

We predict the Crimes for the Battery - Simple Assault for the months of September to December 2017 using ARIMA.

CountOfCrimes = ts(LACrimeGroupBatterySA$CountCrimes)

fit = auto.arima(CountOfCrimes,stepwise=FALSE, approximation=FALSE)

predictions = fit %>% forecast(h=4)

predictions %>% autoplot(include=80) +theme_bw()

The predictions for months of September to December 2017 using ARIMA are shown here.

Months	Predictions
September 2017	1573
October 2017	1445
November 2017	1360
December 2017	1312