8. HOLT smoothing

Alla Inga Spara

• gör holt model på adj.close holt_model <- holt(training$adj.close, h=4, exponential=FALSE)
• varför är h=4? vår testing set har 4 rader
• summary holt summary(holt_model)
• plot holt model ( xlim= c(75,84) för att zooma in, den kan starta från tex 50 och 0 också) plot(holt_model, xlim=c(75,84))
• lägg till linjer på holt model lines(81:84, testing$adj.close, type="o", col="darkblue", lwd=2)
• gör holt forecast vector holt_forecast <- holt_model$mean
• varför mean? forecasted values are called mean in the holt model
• gör holt forecast error vector holt_forecast_error <- testing$adj.close - holt_forecast
• gör holt table holt_table <- data.frame(cbind(testing$adj.close, holt_forecast, holt_forecast_error))
• gör RMSE holt RMSE_holt <- rmse(holt_table$testing.adj.close, holt_table$holt_forecast)
• visa RMSE_holt RMSE_holt

Alla Inga Spara