“Assignment 1 Stock Price Forecasting”

Demetri Chokshi-Fox

DIS = read.csv("C:/Users/Demetri/Google Drive/Grad School/Forecasting and Predictive Analytics/DIS stock prices 2yr.csv")
DISadjclosepricets = ts(DIS$Adj.Close)
plot(DISadjclosepricets)

library(fpp2)

## Warning: package 'fpp2' was built under R version 3.5.3

## Loading required package: ggplot2

## Warning: package 'ggplot2' was built under R version 3.5.3

## Loading required package: forecast

## Warning: package 'forecast' was built under R version 3.5.3

## Loading required package: fma

## Warning: package 'fma' was built under R version 3.5.3

## Loading required package: expsmooth

## Warning: package 'expsmooth' was built under R version 3.5.3

Average Method

meanf = meanf(DISadjclosepricets) 
autoplot(meanf)

Naive Method

naive1 = naive(DISadjclosepricets, h=31)
autoplot(naive1)

Seasonal Naive Method

snaive1 = snaive(DISadjclosepricets, h=31)
autoplot(snaive1)

Drift Method

rwf1 = rwf(DISadjclosepricets, h=31)
autoplot(rwf1)