DISCUSSION 7

library(forecast)
library(timeSeries)

## Loading required package: timeDate

setwd ("~/desktop/ADEC7460.02 Spring 2019 Predictive Analytics/Dataset")
ue=read.csv("numbers-on-unemployment-benefits.csv")

uets<-ts(ue[,2],start=c(1956,1),freq=12)
plot(uets,main="Unemployment Benefits")

ue.train<-window(uets,end=c(1989,4))
ue.test<-window(uets,start=c(1989,5))

uenn<-nnetar(ue.train)
uenn.fit1<-forecast(uenn,h=39)
plot(uenn.fit1)

accuracy(uenn)

##                     ME     RMSE      MAE       MPE     MAPE      MASE
## Training set -33.24863 8981.443 5769.686 -1.062462 6.845676 0.1858961
##                    ACF1
## Training set 0.00164297