C. Zhang
08/06/2016
Stock price analyzer is a Shiny app to display stock price history and forecast future prices for a given stock symbol.
forecasted<- function(stockobj, numforecast){
stockts <- Cl(stockobj)
fit.e <- ets(stockts)
fit.a <- auto.arima(stockts)
if(accuracy(fit.e)[3] < accuracy(fit.a)[3]) forecast(fit.e, as.numeric(numforecast))
else forecast(fit.a, as.numeric(numforecast))}
plot(forecasted(stockobj, 90), main = "AAPL forecasted stock price based on closing price")